A K 



4_\ 

TV 



4 



X] 
4 



N 



X 



V 



AK 



A 



P 7 



5\ 



A 



A 



x 



~4 



7 



4 



4 



7 



A 



A 



\ 



xj 



V 



V 



A. 
X" 



A 



A 



N 



V 



k 4 



7 X 



N 
4 



4 



x 



XI 



4 



k 4 



7 x 



N 

4 



4 



V X 



7 



K 4 



7 X 



N 

4 



K 



V 



K 4 



V 



4 



X 



[7 



7 



N 4 



P 7 X 



4 



4 



X] 

4 



Xj 



X 



V 



A. 



A 



A A. 
7 X" 



4 



4 



k 4 



7 \ 



4 



N 4 



7 X 



N 
4 



4 



k A 



V X 



N 

4 



7 



4 



Xj 



7 



4 



N 



V 



^ 4 



17 \ 



4 N 



N 4 



K X 



4 



N 4 



7 X 



fck 4 



7 X 



xi 

4 



K 4 



7 X 



V 



V 



z. 

X 

A 



7 X" 



I\ 4 



7 X 



N 



V 



A N 



k 4 



7 X 



Xj 
4 



N 4 



7 X 



A 



Xj 



X] 



7 



V 



AJ\ 



A 



h 4 



V X 



Xj 



V 



X"7 



A 



t± 4 



V X 



k 4 



7 X 



XI 
4 



V 



N 4 



17 N 



4 



7 X 



4 



N 4 



7 



X 
4 



"7 



17 



K 4 



V x 



xr 

4 



v 



U 4 



xr 

4 



k 4 



V 



K 4 



4 



4 



k 4 



7 X 



4 



N 



17 
K 



4 



7 X 



7 



XI 

4. 



4 



7 X 



V 



4 



7 X 



k 4 



7 X 



4 



N 4 



7 X 



N 



V 




17 ^ 



K 



4 



U 4 



K 4 



7 X 



1^ 4 



K 4 



7 X 



XJ 



t7 



7 



4_K 



^"7 



4 



k 4 



b. 4 



7 X 



4 



7 ^ 



U 4 



N 



k 4 



7 XJ 



N17 



HAMMOND, IN 46323 



4-b 



7 XJ 



N 4 



7 ^ 



Tt 7 



4K 



k 4 



7 ^ 



fck 4 



7 X 



4 



N 4 



7 X 



V 



4K 



K A 



7 X 



X"7 



A 



A 



XJ 



k 4 



7 X 



4 



t\ 4 



7 XI 



k 4 



7 X 



U 4 



7 X 



X 



V 



7 



7 



4 



U 4 



7 X 



K 4 



7 X 



U 4 



7 X 



X] 

4 



7 



4 



XJ 



k 4 



N 

4 



x 



XT 
4 



7 



bk 4 



7 X 



N 4 



7 X 



17 



N 4 



N 



K 4 



7 X 



7 



X 



V 



"7 



N 4 



7 X 



V 



V 



V 



K 4 



7 X 



N 4 



F N 



7 



N 4 



7 



1^ 4 



7 ^ 



17 



XT 



4 



K 4 



P7 ^ 



4 



7 



4 



V N 



XJ 

4 



4 



xf 



1\ 



fet 4 



7 X 



7 



17 



4 



XI 



V 



17 



7 







o 



DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 
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Sequence 
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numbers 
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LP20-1 


SPSII source deck 


00010-02380 
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LP20-2 


SPSII source deck 


02390-03530 


3 


LP 20-3 


SPSII source deck 


035kO-Oc&70 


h 


LP20-U 


SPSII source deck 


05580-07780 


5 


LP20-5A 


SPSII source deck 


07790-09600 


6 


LP20-5B 


SPSII source deck 


09610-11790 
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LP20-6 


SPSII source deck 


II8OO-1I1I6O 
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LP20-7 


SPSII source deck 


Ha7o-iU57o 
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LP20-8 


SPSII source deck 


1U580-15H*0 


10 


LP20-9 


SPSII source deck 


15150-16960 


11 


LP20-10 


SPSH source deck 


16970-19010 


12 


LP20-1 


SPSII condensed object deck 


0- 83 


13 


LP20-2 


SPSII condensed object deck 


0- 92 






oroxx coijucxiseu ODjecx> clock. 


U— jJXc. 


15 


LP20-U 


SPSII condensed object deck 


0- 150 


16 


LP20-5A 


SPSII condensed object deck 


0- 82 


17 


LP20-5B 


SPSII condensed object deck 


0- 92 


18 


LP20-6 


SPSII condensed object deck 


0- 93 


19 


LP20-7 


SPSII condensed object deck 


0- 13 


20 


LP20-8 


SPSII condensed object deck 


0- 69 


21 


LP20-9 


SPSII condensed object deck 


0- 


22 


LP20-10 


SPSII condensed object deck 


0- li|2 


23 


LP20-1 


Condensed object deck 




2h 


LP20-2 


Clondftna**d oh dfif»lc 




25 


LP20-3-U 


Condensed object deck 




26 


LP20-5A 


Condensed object deck 




27 


LP20-5B 


Condensed object deck 




28 


LP20-6 


Condensed object deck 




29 


LP20-7 


Condensed object deck 




30 


LP20-8 


Condensed object deck 




31 


LP20-9 


Condensed object deck 




32 


IP20-10 


Condensed. object deck 




33 


Data deckj 


, simplex 




31* 


Data deckj 


t test solution, simplex 




35 


Data deckj 


, dual 





All 35 decks are preceded by a hash total card (punched by Hash Total 1.6*031) ♦ 
The hash totals are given on the next page* The hash total cards should be re- 
moved from decks 1-11 and 33-35 before using. The hash total cards for decks 12-32 
may either be removed or not. They do not interfere with loading object decks. 
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1620 Users Group Library » Program Abstract 

Title 

LP20 Linear Programming System, 

Subject Classification 
10.1. 

Author and Organization 

James N. Boles, Associate Professor, Department of Agricultural Economics, 
University of California, Berkeley. 

Direct Inquiries To 

Professor James N. Boles, Department of Agricultural Economics, University 
of California, Berkeley k 9 phone— Thornwall 5*6000, extension 33U°* 

Purpose and Description 

This system solves the general linear programming problem. Either or both 
the dual or simplex algorithm is used. Provision is made for testing the solu- 
tion by substitution in the restraining equations, for printing or punching the 
entire matrix with explicit decimal format, and routines are provided for semi- 
automatic parametric change of the constraints. 

Method 

The method used is the revised simplex and/or dual algorithm. See Saul I. 
Gass, Linear Programming Methods and Applications (New York: McGraw-Hill Book 
Co., Inc. 1958). 
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Restrictions and Range 

Where M is the number of restraining equations and N is the number of real 
activities, the limitation on problem size is given T^y 

(M + 2)(N + 3)^ Memory Capacity - U800 
Except for this limitation, the system is independent of memory size. 

Storage Requirements 

Program goes to U77£; data starts at U800 and goes to upper memory. 

Equipment Specifications 

Card system, any size memory, automatic divide, and no other special 
features • 

Additional Remarks 

Eight and 2 floating point arithmetic ; SPSII with floating point subrou- 
tines, nonrelocatable; SPSII listings and flow charts $ listing of actual con- 
densed decks ; source decks; SPSII condensed decks; operating decks condensed 
by routine similar to squeeze; and sequence of 10 semiindependent routines. 



viii 



Note to Users 

After the manual was prepared, it was found that the parametric 
programming routines may cycle if the current solution is degenerate, 
i.e. having more than one zero element in the b vector. If it is 
desired to start the parametric solution with one element of b started 
at zero and then made larger, other zero elements of b should be 
perturbed slightly by changing the element to a very small number, for 
example to 0.00001. Alternately, one may start with the selected 
element of b so large that the parametric disposal vector is in the 
optimum solution and then subtract. In this case normal truncation 
error will usually provide sufficient perturbation so no cycling will 
occur. 

One additional change has been made in UP20-9* If the parametric 
vector is in the current basis and a multiple of the parametric vector 
is to be added to b, the program prints ID BASIC and stops. If a 
multiple of the parametric vector is to be subtracted, the level of the 
parametric vector in the current solution is reduced to zero and the 
parametric process continues. 



c 



G 



LP20 LINEAR PROGRAMMING SYSTEM 



Detailed Description of System 
A. Introduction 

The LP20 Linear Programming System borrows heavily from C. R. Nichols 
1620 Linear Programming Code for paper tape input-output and the adaptation 
of this program by Art Nickel and Lou Davis for card machines. The primary 
differences are that the current version is written in SPSII with a com- 
plete SPSII listing; provision is made for printing or punching in explicit 
decimal form the entire matrix; provision is made for testing the solution 
by substitution in the restraining equations; and routines are provided for 
parametric change of the constraints. 

The LP20 Linear Programming System, as compiled, requires a Card 1620 
with automatic divide. It is designed so that the sequential programs 
occupy locations from OOlj.02 to 0hl6k» Data and working areas begin at 
Olj.796 and run to upper memory. Since the simplex program occupies the 
largest space, this program should be recompiled for machines without auto- 
matic divide, and the reference address, ¥ (now set at I4.809) should be set 
at least lh digits beyond the last digit used by the compiled program and 
subroutines. 

As currently compiled, the limitation on problem size is given by: 
(M + 2)(H + 3)^ ^0^-11600 . 

where M ■ number of restraining equations and N « number of nonbasic vari- 
ables. 

Ibccept for this restriction, the program is independent of memory ca- 
pacity. 

If additional floating point accuracy is desired, the system can be 
recompiled for more than eight significant digits by making appropriate 
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changes in address arithmetic* Increasing the word length will, of course, 
reduce the maximum problem size that can be handled. 

For those machines with floating point hardware, the program can be 
recompiled making appropriate modifications to floating point instructions 
and their associated instructions that initialize and modify instructions* 

The LP20 Linear Programming System is designed to solve a general 
linear programming problem of the forms 

Given coefficients, cost coefficients, C..$ and requirements, 

b . : determine X . to maximize 

subject to l^SlO , j « 1,2,...,(M+N) 

and to M+N 

^TA^ « b ± , i = 1,2,. ..,M. 

Either or both the Dual and Simplex Algorithms are used. This requires 
that a basic solution must be known prior to starting the problem. In order 
to save space, the unit vectors associated with variables in the basic solu- 
tion are not stored. As a variable is dropped from the basic solution and 
a new variable added, the vector representing the deleted activity (in terms 
of the new basis) replaces the vector corresponding to the variable added to 
the basic solution. 

If any of the b ! s are negative in the initial basic solution, the Dual 
Algorithm is used until a feasible solution is obtained or until it is de- 
termined that the problem is inconsistent. Once a feasible basic solution 
is obtained, the simplex algorithm is used until an optimum basic feasible 
solution is obtained or until it is determined that the functional is un- 
bounded. 
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The Z. - row is computed for the first basic solution based on 

the floated C(J) values entered for both basic and nonbasic activities, 

A form of the revised simplex method is used subsequently so that the 

functional, the b's, and the (Z - C.)'s are transformed in the same way 

J J 

as the Aij elements of the matrix. Therefore, the (Z - C.) elements 
will also be subject to truncation error, and it may be desirable after 
a long sequence of iterations to reload the Shadow Price Program to recom- 
pute the value of the functional and the (Z. - C.) row. 

In the process of matrix transformation, each element is tested after 
transformation to see if its exponent is less than -07 (essential zero). 
If it is, the element is replaced by zero. In certain problems run on 
predecessor programs, reasonable solutions were obtained only by in- 
creasing essential zero from -08 to -06. The field address of ESSZER is 
00553 for both the Dual and Simplex Algorithms. 

To illustrate the relations between various linear programming prob- 
lems and the way in which they are modified to fit this programming 
system, several simple problems are now described. 
1. Standard Simplex Problem 

Maximize X Q = 83. UO ^ + 72.35 X g + 27.30 1^ + 

+ 72.05 X^ + 207.2$ X^ + i£5.00 X 6 

subject to X^ - ; j » 1,2,... ,6 

and to 

\ + X 2 + X 3 + 2 X^ < 60 

X 2 + X 3 + 2 X^ + X^ + X 6 * 60 

99.k X 1 + 37.75 X 2 + 19.75 ^ + 5U.U X^ + 7U.75 X^ + 53.0 X 6 * 2000 

Ji36X 3 + 19.1 X^ + 12.363X 6 5 k2h 

3 X 2 + .361; X 3 + 9.1 X^ + 26.737 X 6 f 3$9 



This problem is modified by adding disposal (slack) activities and corresponding variables X^, Xg, X^, X^ Q , 
and ^^x* 

Modified Problem 1 

Maxiinize X Q « 83.UO 1^ + 72.35 X g + 27.30 X 3 + 72.05 X^ + 207.25 X^ + U55.0 X $ + o.O X ? + 0.0 X g + 0.0 X^ + 

+ 0.0 x 10 + 0.0 x n 

Subject to X^ ^ j j * 1,2 > «..,11 

and to 

*i + • *2 + X 3 + 2 X U + * *7 - 60 

X 2 + X 3 + 2X U + Xg+ X 6 + X 8 - 60 

99 .h x x + 37.75 x 2 + 19.75 x 3 + 51*.U x^ + 7U.75 + 53.o x 6 + x ? = 2000 

.li36 X 3 + 19.1 X^ + 12.363 X 6 + h.0 ° ^ 

3 X 2 + .36UX 3 + 9.1 X^ + 26.737 X 6 + X H " 
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Finally, the unit vectors corresponding to the disposal (slack) activities are deleted in order to save storage 
space in the computer. 



Problem i 


[1) as stored 


in computer 






! 


j 




S Column -1 


Column 


Column 1 


Column 2 


Column 3 


Column k 


| Column 5 


Column 6 


I 

Row 


-1 






0001 83 .UO 


0002 72.35 


0003 27.30 


000k 72.Q5 


| 0005 207.25 

i 


0006 U55.00 j 


Row 

















1 




Row 


1 


0007 0.0 


60.000 


1.000 


1.000 


1.000 


2.000 


i 1 
i 1 

j j 




Row 

i 


2 


0008 0.0 


60.000 




1.000 


1.000 


2.000 


! ; 

| 1.000 ! 

! ; 


1.000 


Row 


3 


0009 0.0 


2000.000 


99.U00 


37.750 


19.750 


5U.U00 


| 7U.750 j 


53.000 


Row 




0010 0.0 


U2U.000 






0.1*36 




! 19.100 


12.363 


Row 


5 1 


0011 0.0 


359.000 




3.000 i 0.36U 

i 




j 9.100 


26.737 

i 
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2. Feed Mix Problem, Using Dual Algorithm 

Minimize X Q ■ 66 ^ + 92 X g + 156 Xj + 96 X^ 

subject to X 1 , X 2 , X 3 , X^ 2 

and to 

17 ^ + 25 X 2 + 60 X 3 + U5 ^ - 35.0 

2 3^+ 5 X 2 + 7 X 3 + 0.5 - 1.5 

X, + X + X + X, * 1.0 
1 2 3 U 

Modification of Problem (2) .— Since the programming system assumes a 
maximizing problem, the objective function is multiplied by minus one 
so that the problem is now to maximize 

~X Q = - 66 X 1 - 92 X 2 - 156 X 3 - 96 X^ 

Disposal activities are added to form equations to replace the in- 
equalities . 

Maximize -X q * - 66 X ]L - 92 X g - 156 X^ - 96 X^ + X^ + X^ + X ? 

subject to X^ - 0^ j « 1,2, ...,7. 

and 

17 x 1 + 25 x 2 + 60 x 3 + h$ X^ - X^ * 35.0 

2 x x + 5 x 2 + 7 x 3 + 0.5 X^ - x 6 « 1.5 

x x + x g + x 3 + X^ - X ? « 1.0 

There still is a problem since no basic feasible solution can be ob- 
tained by inspection. The solution to this problem is to multiply each 
equation by minus one and use X^, X^, and X^ as the basic variables, 
allowing the right-hand side to be negative. The Dual Algorithm is 
then automatically used to derive a basic feasible solution at which 
time the Simplex Algorithm takes over and obtains the optimum solution. 
The problem, as entered into the computer, is shown on the next page. 



Problem (2) as stored in computer 







' Column -1 


Column 


Column 1 


Column 2 


Column 3 


Column k 


■ 

Row- 


-1 






0001 -66 .0 


0002 -92.0 


0003 -156.0 ! 


000k -96.0 


Row 

















Row 


1 


; 0005 o.o 


-35.0 


-17.0 


-25.0 


-60.0 


-U5.o 


Row 


2 


; 0006 0.0 


- 1.5 


- 2.0 


- 5.0 


- 7.0 j 


- 0.5 


Row 


3 


1 000? 0.0 
-J i 


- 1.0 


- 1.0 


- 1.0 


- 1.0 ! 

i 


- 1.0 
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3. A problem stated in terms of equalities for which no obvious basic 
solution is available* 

Maximize -X Q - - 66 2^ - 92 X g - 156 - 96 X^ 
subject to X^, X 2 , X^, 
17 x 1 + 25 x 2 + 60 x 3 + U5 X^ - 35.0 
2 x x + 5 x 2 + 7 x 3 + 0.5 X^ - 1.5 
x 1 + x 2 + x 3 + x^ -■ 1.0 

In this problem artificial slack variables X^, Xg, and X^ are added. 
In order to attempt to obtain a solution to the problem as stated, how- 
ever, a large negative C. is assigned to these three variables. If a 
solution exists to the problem as stated, X^, Xg, and X^ will not be in 
the optimum basis. 

This problem, as entered in the computer, is the same as problem (2) 
except that for the basic activities, C.. 0.0 is replaced by 
Cj - -999*999* 

The LP20 Linear Programming System consists of a number of semi-independent 
routines. These are briefly described below: 
LP20-1, Data Loader 

This program can be used to load either of two types of data input, in- 
ternal floating point format for decks previously punched by LP20-7, Matrix 
Punch for Restart, or row-column data prepared on a key punch. In the first 
case, the entire matrix is loaded. In the second case, the matrix area is 
first cleared and then only nonzero elements are floated and stored in speci- 
fied cells. 
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LP 20-2 j Shadow Price 

This program floats the associated with both basic and nonbasic 
activities, computes the Z. - C. row including the value of the functional 
for the initial basic solution. 

LP20-Q, Dual 

This program tests to see if the basic solution is feasible. If it 
is not feasible, the Dual Algorithm is used to remove infeasibilities, if 
this is possible. If it is already feasible, the next program, LP20-U, is 
loaded. 

LP20-U, Simplex 

This program uses the simplex method to obtain an optimum solution, 
if it exists. The dual and simplex programs were compiled in such a way 
that the matrix transformation subprogram and floating point subroutines 
are stored in the same locations. Consequently, these are loaded by LP20-3, 
and the cards pertaining to these routines are deleted from LP20-1*. In 
effect, LP20-3 and LP20-U are merged into a single deck in the condensed 
object program decks. Both programs, on sense switch control, can be halted 
after any iteration. Also, on sense switch control, the iteration number, 
value of the functional, and the ID/CJ of the entering and leaving variable 
are printed after each iteration. 

LP20-5A, Solution Print 

This program prints, for any basic feasible solution, the value of the 
functional, the basic solution, and shadow prices (Z^ - C^). For both of 
the latter cases, it prints the identification of the activity and its as- 
sociated G.. 
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LP20-$B, Solution Punch 

This program is the same as LP20-5>A, except that the information is 
punched in a format suitable for 80 x 80 listing. 

LP20-6, Matrix Punch or Print 

This program punches for 80 x 80 listing or prints the entire matrix 
in explicit decimal format. It can be used to check the initial data in- 
put or to print or punch the matrix after any iteration. 

LP20-7, Matrix Punch for Restart 

This program punches the matrix in floating point format for reloading 
by LP 20-1. 

LP20-8, Solution Test 

This program is designed to check the accuracy of a solution by sub- 
stituting the values of the basic variables into the original equations 
and comparing the results with the original b's. It must be used in con- 
junction with LP20-1 and the original data deck supplemented with data 
cards that cause the solution values to be loaded into row zero and 
column (-2), the working column* If a variable in the solution was origi- 
nally a basic variable, its level is entered in the corresponding row of 
column (-2). If a variable was originally a nonbasic variable, its level 
is entered in the corresponding column of row (0). After loading the aug- 
mented data by LP20-1, the entries in column (-2) are subtracted from the 
corresponding entries in column (0). Then the vectors with positive levels 
are multiplied by their associated levels and the resulting scalar products 
subtracted from b, column (0). The result should be that, except for trun- 
cation error, b should be null. This can be checked by using LP20-$A or B 
to print the solution. 
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LP20-9> Parametric Solution 

This program is used to add or subtract the largest multiple of a 
specified nonbasic vector to an optimum basic feasible solution such that 
one of the elements of the modified b is exactly zero* 

If it is planned to use parametric programming with a vector not oc- 
curring naturally in the original problem, the vector should be added to 
the original problem with an associated such that it will not appear 
in the optimum solution. The program prints the value of k, the multiplier 
of the specified vector added to b. 

LP20-10, Parametric Dual 

This program is essentially similar to LP20-3, except that it has 
been modified to select an activity at the zero level to delete from the 
basis rather than one at a negative level. It is also modified to do 
just one iteration. LP20-9 and 10 are designed to be operated in sequence 
as many times as desired. 
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Input-Output Format 

A. Input format for data 

1. Internal floating point format as punched by LP 20-7. See page I4I for 
detailed description of cards. A single alphameric card must be 
added to the deck punched by LP20-7. 

2. Row-column format 

a. First data input card. The first card is used for problem iden- 
tification. Any alphameric information may be punched in col- 
umns 1-80. A record mark (0-2-8 multiple punch) may follow the 
alphameric field but is not necessary. This card is read alpha- 
merically and printed on the typewriter. 

b. Second data input card. This card is a parameter card and must 
contain the following information: 



Columns Information Example 

1-3 M, the number of restrictions. 005> 

k Blank. 

5-7 N, the number of nonbasic vari- 
ables. 006 

8 Blank. 

9 Input format. 



1 for row-column, fixed point 
input. 

for a complete (including 
zero elements) internal float- 
ing point matrix. (Normally 
only used as punched out by 
LP20-7* Matrix Punch for Re- 
start.) 

c. The data, following the cards specified under (a) and (b), are 
in row-column, fixed point format. Up to four elements with row- 
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column designations may be entered on each card. A brief tabular 
description of row-column designations is in order* The matrix 
is stored by columns with the reference field address, W, corre- 
sponding to row (-1) and column (-2). 



Rows 


Columns 


-2 -1 





1 2 3 N 


■I" 


w ! 




Nonbasic ID/CJ 


6 




Function 




' r~ 

2 
M 


Working colu 
Basic ID/CJ 


bi 





3D/CJ stands for a single 10-digit field where the first 

four digits are an arbitrary identification (ID) of the activity 

and the next six digits are the associated C.. Identifications 

do not need to be sequential* In row (-1) and columns (l) through 

(K), an ID/CJ element is necessary* In column (-1) and rows (l) 

through M,an ID/CJ element is necessary* In rows (l) through (M) 

and columns (0) through (N) only nonzero elements need to loaded* 

Row (0) and column (-2) are used for input only in connection 

with LP20-8, Solution Test. 

In general, the format is as follows: 

i j element 

/ HXbSXfc(£Cn365^& where b stands for a blank column* 

There are four fields per card for data: 

Columns for i Columns for j Columns for element 

Field 1 1-3 £- 7 9-18 

Field 2 21-23 25-27 29-38 

Field 3 l4l-ii3 itf-ltf- 1*9-58 

Field h 61-63 65-67 69-78 
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All other columns are not used by the program and may be 
used for any other purpose* These cards are read alphamerically . 
Consequently, a blank does not enter as zero (70) but as an 
alphameric blank (00). 

Any field that has the middle digp-t of the three digit i 
value left blank will be ignored * Hence, data cards do not have 
to have a complete set of four elements, nor is it required that 
a left-hand field be used in order to use succeeding fields on 
the same card. Matrix elements, b., and A.,., may contain up to 
eight numeric digits with optional leading sign and mandatory 
decimal point. If the element is negative, an explicit minus 
sign must be punched in the first column provided, columns 9> 29, 
1*9, or 6°. Loading of zero elements is optional. 

The signal to the data loader to quit loading is a three 
digit value of i * 999. This must be in the last data card to 
the right (if other elements are on the card) of the last ele- 
ment. The simplest procedure is to use a trailer card with 999 
punched in columns 1-3. 
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Item 
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Specific Description of Fields 
Description Row-Column Remarks-Bxamples 



3 



Matrix element 
of the i^ n row 
and j*h column. 



XXX XXX 


i 


j 


element 




010 


oou 


36.07$ 




003 


00U 


-U.0 




008 


017 


-0.6 




008 


017 


-.6 


i 3 








XXX 000 


008 


000 


6.02$ 



XXX 00J 



00J XXX 



012 00J 0003001500 



b. Element in the 

1 i*A row of the 
requirement 
vector. 

C. Cost per unit of 

the basic vari- 
able for row i. 
j =• 001 » 00J 
where J is a 
flagged one. 

C. Cost per unit of 
J nonbasid vari- 

able, i * 001 - 00J 
where J is a flagged 
one. 

For the ID/CJ elements, no explicit decimal points are used. 
An implicit decimal is assumed in the middle of the six digit CJ 
field. Negative costs are designated by a flag over the units 1 
position of the CJ field. 



00J 021* 003la23J£6 



Examples 
012 00J 0003001^00 



Interpretation 
Row (12) 
Column (-1) 



00J 02h 003la23l£6 



c 3 * 1.5 
Row (-1) 
Column (210 



X. 



3h 
] 3h 



-123 .U56 
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Summary of data load input for row-column, fixed point input. 







Trailer card 




Data deck 




Parameter card 






Alphameric card 







To prepare data for LP20-8, Solution Test, additional data cards are 
prepared to load the solution into row (0) and column (-2). The 
levels of originally basic activities are entered in the corresponding 
rows of column (-2). The levels of originally nonbasic activities are 
entered in the corresponding columns of row (0)« The format is the 
same as that used for A. . and b . • 

Examples 
i j 

000 03U 36.702S8? 
010 002 U3.2569U3 

where the nonbasic activity corresponding to the level of 36 •702£8Q 
was originally stored in column 3U> and the basic activity correspond- 
ing to the level of U3«2£69k3 was originally stored in row 10. 

The original data deck, with the new cards containing the levels 
of basic and nonbasic variables inserted prior to the trailer card 
serves as input to LP20-1 followed by LP20-8 to test the solution* 
Input for LP20-9, Parametric Solution, consists of a single card in* 
which the ID of the parametric vector is punched in columns 1-U and 
a 1 is punched in column 6 if the vector is to be subtracted from the 
b vector. If column 6 is blank, the parametric vector will be added 
to b. 
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B. Output format 

The only card output that requires detailed description is that of 
LP20-7, Matrix Punch for Restart* 

The first card is punched from location 1*02 and contains in columns 
l-3> Mj in columns 5>-7> N; a zero in column 9 indicating floating point 
format; the reference address, 5, in columns 10-Hjj M + 2 in columns 1J>- 
17. Other columns of this header card will be punched, but the informa- 
tion contained in them is not essential . The remaining cards contain the 
entire matrix by columns starting in row (-1) and column (-1) with seven 
10-digit fields per card* The fields are either internal floating point 
or ID/CJ elements* The last card contains a record mark in column 72. 
Columns 71 to 80 may be punched but do not contain useful information. 

The punched output from LP20-£B and 6 is the same as the typed output 
from LP20-$A and 6* It is suitable for 80 x 80 listing, contains alpha- 
betic headings, and uses explicit decimal format* The float routine pre- 
pares most numbers with up to four digits to the left of the decimal and 
five to the right* If the number is negative, a negative sign precedes the 
first digit* If the numbers are larger than 9999*99999 or smaller than 
0*00010, a modified E format is used with the two digit exponent preceding 
the mantissa* 

For examples ±.9$3h2 9 which indicates the number, st 0.000009^3^2 
if the leading sign is negative or ±9$3kZG if the leading sign is positive. 

C. Object deck format 

Two sets of object decks are provided. One set was condensed by the 
SPSII compiler while the other was further condensed by a routine similar 
to Squeez. The first six and the last four cards serve as program loader 
and contain the add and multiply tables* The remaining cards have a 
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standard format • The first five columns contain a flagged address to which 
the digit in column 8 will be transmitted. Columns 6 and 7 contain a 
flagged number indicating how many digits are to be transmitted • 

This condenser has been designed tp be used in chained programs where 
the memory is not cleared prior to loading. The flagged number indicating 
how many digits are to be transmitted allows one to control the loading in 
areas where parameters have been stored by previous programs so that they 
are not destroyed. All program cards with the five digit leading address 
are read into a fixed location and, starting with column 8, the required 
number of digits are transmitted to the specified and higher addresses. 

LP20-1 has a two card clearing routine independent of memory size prior 
to the six card loader. 

Except for the first six and last four cards, the leading five digit 
address serves as a sequence number, although sequence is not important. 
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LISTING OF DATA CARDS. 
SAMPLE PROBLEM , LP20, SIMPLEX. 
005 006 1 

001 001 1.0 001 

002 002 1.0 002 

002 006 1.0 003 

003 004 54.4 003 

004 005 19.1 004 

005 005 9.1 005 
001 00 J 0007 002 
005 00 J 0011 
00 J 001 00010834 00 J 

oo j 005 000520725 OOJ 

001 000 60.0 002 
005 000 359.0 
999 



002 1.0 

003 1.0 

001 99.4 

005 74.75 

006 12.363 
006 26.737 
OOJ 0008 

002 000207235 
006 0006455 
000 60.0 



SAMPLE PROBLEM, LP20, SI 
005 006 1 

001 001 1.0 001 

002 002 1.0 002 

002 006 1.0 003 

003 004 54.4 003 

004 005 19.1 004 

005 005 9.1 005 
001 OOJ 0007 002 
005 OOJ 0011 

OOJ 001 00010834 OOJ 

ooj 005 000520725 OOJ 

001 000 60.0 002 
005 000 359.0 

000 001 0.2171115 000 

001 OOK 13.20997 004 
999 



MPLEX, TEST SOLUTION. 



002 1.0 

003 1.0 

001 99.4 

005 74.75 

006 12.363 
006 26.737 
OOJ 0008 

002 000207235 
006 0006455 
000 60.0 

004 23.286457 
OOK 258.00095 



001 


003 


1.0 


001 


004 2.0 


002 


004 


2.0 


002 


005 1.0 


003 


002 


37.75 


003 


003 19.75 


003 


006 


53.0 


004 


003 0.436 


005 


002 


3.0 


005 


003 0.364 


003 


OOJ 


0009 


004 


OOJ 0010 


OOJ 


003 


00030273 


OOJ 


004 000407205 


003 


000 


2000.0 


004 


000 424.0 


JTJON. 








001 


003 


1.0 


001 


004 2.0 


002 


004 


2 . u 


uuz 


UUp i • U 


003 


002 


37.75 


003 


003 19.75 


003 


006 


53.0 


004 


003 0.436 


005 


002 


3.0 


005 


003 0.364 


003 


OOJ 


0009 


004 


OOJ 0010 


OOJ 


003 


00030273 


OOJ 


004 000407205 


003 


000 


2000.0 


004 


000 424.0 


000 


006 


13.427085 







Us fe> 
OA 



LINEAR PROGRAMMING TEST PROBLEM. 
003 001* 1 

001 001 -17.0 

002 001 -2.0 

003 OOT-TTa 



DUAL. FEED MIX. 



00 J 001 000106600- 
001 000 -35.0 

001 00 J 0005000000 

999 



001 002 -25.0 

002 002 -5.0 
TKJ3 002 -1. 
OOJ 002 000209200- 
002 000 -1.5 

002 OOJ 0006000000 



001 003 -60.0 

002 003 -7.0 
U03 003 -LA 

OOJ 003 000315600- 

003 000 -1.0 

003 OOJ 0007000000 



001 004-1*5.0 

002 OQk -0.5 

003 ooif -r.tf 

OOJ 004 000409600 



Nore 



TRAILING MtA/l/5 3/6-/V /S A FL/\&&£0 
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SAMPLE PROBLEM , LP20, SIMPLEX. 



TER 



FUNCTIONAL 



VAR IN 



VAR OUT 



© 



3001 
9002 
0003 



6109323694 
71903054134 
7805220194 



9006455000 
DOO 1083400 
9004072050 



9011000000 
9009000000 
9008000000 



FUNCTIONAL m 7805.22010 



BASIC 


SOLUTION 




ID 


CJ 


LEVEL 


0007 

0004 
0001 
0010 
0006 


000.000 
072.050 
083.400 
000.000 
455.000 


13.20997 
23.28645 
.21711 
258.00095 
13.42708 


ID 


CJ 


SHADOW PRICES 


0009 
0002 
0003 
0008 
0005 
0011 


000.000 

072.350 
027.300 

000.000 

207.250 

000.000 


.83903 
17.10861 

7.88345 
13.20327 

3.90254 
14.86060 



OPT^UM SOLOT /OA/ 



MATRIX; 



0007 
0004 

0001 
0010 

0006 



000.000 
072^050 

083.400 

000.000 

455.000 



7805.22010 
13.20997 

23.28645 
.21711 
258.00095 
13.^2708 



0009 000.000 0002 072.350 0003 



83903 
01006 



01 



17.10861 
.03519 
.44389 
.07701 

-1.38717 
.11220 



O27.3OO 
7.88345 
.09209 



-.07848 
.26768 
.01361 



001 
002 
003 
004 



005 
006 
007 



0008 000.000 0005 
13.20327 
-.72635 
.50000 
-.27364 



207.250 0011 
3.90254 

-1.04967 

.32982 

.39002 
14.89222 

.34035 



000.000 
14.86060 

.04710 
-.01870 
-.00970 
-.46239 

.03740 



008 
009 
010 
011 
012 
013 
014 
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SAMPLE PROBLEM, LP20, SIMPLEX, TEST SOLUTION. 



FUNCTI 


ONAL « 


.00000 


BASIC 


SOLUTION 




1 D 


CJ 


LEVEL 


0007 
0008 

0609 

0010 
0011 


000.000 
000.000 
000.000 
000.000 

000.000 


-05 .50000 
-05 .10000 
.00050 
.00000 
-04 .30000 


ID 


CJ 


, SHADOW PRICES 


0001 
0002 
0003 
0004 
0005 
0006 


083.400 
072.350 
027.300 
072.050 
207.250 

455.000 


.21711 

.00000 
.00000 

23.28645 
.00000 

13.42708 



TZutitAprtON ERROR,. 



LEVELS OF NOfilbfySic 
ACTft/tT/ES OPT- 
IfWM SOLUTION 







PAK4M£T tf/C 


P/C <&RAMft\NGr 




K« 1313071004 


(WOgKJNCr CAPITAL » H ZCCO + 
(ID 6F PAKAMETfIC VECTOR * 


1313.01 a J/ 3313,0 7) 
coo 1 J 


i Trn 

1 TER 




— FUNCTIONAL 


VAR IN 


VAR OUT 


3001 




890693 16D4 


DOO520725O 


9007000000 


FUNCT 


1 ON At - 8906. 93160 






BASIC 


SOLUTION 








1 D 


CJ 


LEVEL 






0005 
0004 
0001 
0010 
0006 


207.25a 
072.050 
083.400 
000.000 
455.000 


-.00000 
2 3.28645 
13.42708 

258.00095 
13.42708 






ID 


CJ 


SHADOW PRICES 






0009 
0002 
0003 
0008 

0007 

0011 


000.000 
072.350 
027.300 
000.000 
000.000 
000.000 


.80163 
17.23944 

8.22585 
10.50278 

3.71784 
15.03574 






K= 1807605 934 


{UJOHKING- CAPITAL* #33i3,67+*ffo7 t bl = #&'/J0.6>V) 


ITER 




FUNCTIONAL 


VAR IN 


VAR OUT 


15001 




10355965^5 


DOO8OOOOOO 


DO 10000000 


FUNCTIONAL « 05 .10355 






BASIC 


SOLUTION 








ID 


CJ 


LEVEL 






0005 
0004 
0001 
0008 
0006 


207.250 
072.050 
083.400 

000.000 
455.000 


17.32454 
" ~ T7:5724T 

24.85517 
-.00000 

7. 53063 






ID 


CJ 


SHADOW PRICES 






0009 
0002 
0003 
0010 

0007 

0011 


000.000 

072.350 
027.300 

000.000 
000.000 

000.000 


.65616 
16.33450 
9.83036 
1.01917 
18.17735 
15.24566 
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K- 2537^56304 WML 



ITER 




FUNCTIONAL 


uOOl 




T2020951u5 


FUNCTI 


ONAL m 05 


.12020 


BAS 1 C 


SOLU I 1 UN 




ID 


CJ 


LEVEL 


0005 
0009 
4% 00Q1 
%J 0008 
0006 


207.250 
000.000 

083.400 
000.000 
455.000 


17.32454 
-.00000 
59.99999 
35.14482 
7.53063 


ID 


GJ 


SHADOW PRICES 


0004 
0002 

0003 

0010 

0007 
0011 


072 .050 
072.350 
027.300 
000.000 
000.000 
000.000 


94.75001 
57.22286 
63.23612 
3.51792 
83.40000 
15.39095 



ID BASIC. (ACT/f/7Y 6°° 9 



VAR IN VAR OUT 

3009000000 D004072050 



«J ttf 3 AS / 5 ,) 



f/A/AL- 



MfiCTZlX A FT Eft pAtAMaTftlC 



0009 
0001 
0008 
0006 



2O7.25O 
000.000 

083. if do 
000.000 

455 .000 



05 . 12020 
17. 32454 

59.99999 
35.14482 
7.53063 



0004 072.050 
94.75001 

-144.40001 
2 . 00000 
1.99999 



0002 



072.350 
57.22286 
-.09314 
-62.31428 
1.00000 
.94924 
. 14390 



0003 



027.300 

63.23612 

.01797 

-81.39Q93 
1 . 00000 

.97452 

.00749 



001 

002 

003 

004, 

005 

006 

007 



00 1Q_ .000 .000 _oo_07 000 . 000 
3.51792 83.40000 

.06714 -07 -.10000 
-3.80811 -99.39999 

1.00000 

-.04429 -06 -. 10000 
-.02285 -07 .10000 



0011 



000.000 

15.39095 
-.03104 

-.22142 

-.01691 
.04796 



008 
009 
010 
011 
012 
013 
014 



o 
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LINEAR PROGRAMMING TEST PROBLEM. DUAL. FEED MIX. 



ITER FUNCTIONAL VAR IN VAR OUT 

5001 7466666552 5004096005 5005000000 

5002 7957894252 5003156005 5006000000 

5003 8678480952 5002092005 5007000000 

5004 8764583352 5001066005 5003156005 



FUNCTIONAL m -87.64583 

BASIC SOLUTION 

ID CJ LEVEL 

0004 -096.000 .60416 

0001 -066.000 .26041 

0002 -092.000 .13541 

ID CJ SHADOW PRICES 

0003 -156.000 6.80209 
0007 000.000 32.98958 
0006 000.000 5.08333 

0005 000.000 1.34375 



OPTIMUM MATKl* M bO A L FEED MIX PROBLEM 



m 0003 -156.000 0007 000.000 0006 000.000 001 

-87.64583 6.80209 32798958 5708333 — 002 

0004 -096.000 ,60416 .92708 .36458 08333 00* 

0001 -066.000 .26041 -2.05729 -2 2 1354 20bU 004 

0002 -092.000 .13541 2.13020 \84895 -I9I66 0$ 



0005 000.000 

U £P? 007 



-.03124 



008 



.04687 qqq 
met** uu ^ 



-.01562 



010 
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Operating Instructions . 

Each of the programs is designed to operate send-independently. Each 
has as its last executed instructions a simulate load sequence, read numeric 
card into location zero, and branch to zero. In the condensed object deck, 
the programs do not halt at the conclusion of loading the program but branch 
immediately to the first instruction. 
A. Main sequence. 

1. LP20-1, Data Loader 

2. Data 



J PAT A CMOS 













3. LP20-2, Shadow Price 

On Off 
Sense Switch 1 Print iteration headings No print 

U. LP20-3 and It, Dual and Simplex 

On Off 

Sense Switch 1 Print iteration number, No print 

functional, variable in, 
and variable out 

Sense Switch 2 Halt after complete itera- 

tion No halt 

This halt allows the problem to be stopped in midstream to obtain 
a matrix print or punch (LP20-6), a solution print or punch (LP20-5A 
or B), or a matrix punch for restart at some later date (LP20-70. 

If the dual program is used (an infeasible initial basic solution), 
an inconsistent problem will lead to an error halt at 02l£6. If an 
unbounded solution is found by the simplex program, an error halt occurs 
at 02608. 



Sh. 

The only other error halts are those connected with the floating 
point subroutines. Here the operator has a choice as to action de- 
pending upon the digit stored in OOlj.01. The last digit of card six 
in the condensed object decks corresponds to OOUOl and may be modified 
to suit the operator^ choice of action* In the version distributed, 
a zero appears at this location which causes a halt when any floating 
point error is detected • 

5. LP20-5A or $B, Solution Print or Solution Punch 

These programs are essentially the same except that 5>A types the 
solution and 5>B punches the solution for 80 x 80 listing* 

6. LP20-6, Matrix Print or Punch (Optional) 

22 Off 
Sense Switch 3 Types matrix Punches matrix 
7* LP20-7, Matrix Punch for Restart (Optional) 

To summarize the operation of the main sequence of programs: 

Since the first two cards of LP20-1 are a memory clear routine 
independent of memory size, it is not necessary to clear memory* 
1. Push reset on console. 

2* Set left margin and tab stops at left margin +20, left mar- 
gin +35 and left margin +50. 
3* Set sense switches. 

On Off 

Sense Switch 1 Print iteration No print 

Sense Switch 2 Halt after iteration No halt 

Sense Switch 3 Print final matrix Punch final 

matrix 

]±. Load programs and data in read hopper. Use following 
sequence : 
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LP 20-7 MATRIX 
71 



LPaO-4 MAT* IX 



O PTIOAIAL 



~ 71Y 



Lfao- 5* A OR SB 
SOLUTION PtiMrmthtok 



Ail 



LP**-*. ^ 



DATA 



j+fADgft CAflD 



ALPHA CA*D 



LP 2.0 
DATA 



71 



L£)A0£8 



£ # Push load. 



6. Push punch start (if needed). 

7. Operation will continue automatically until an error halt 



or until last card of last program stops card reader. 
8. Push reader start to read last card. 
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o 



DECK ^6L<3U£W<:e 




sol. p*wr** 



SOLUTION T€ST 



TRAILER CA«& 



7\ 



/ AY 



CRIMINAL DA"M 



irfEADC* CARD 



PH A C A ftfr 




DATA 


L0Abi*R 







o 



Solution Test 



1* Rsset on console. 
2. Place programs and data in read hopper. 



3. 



?ush load, 

?ush punch start (if needed). 
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tfhen only last card is in read hopper, push reader start* 



O 
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C. Parametric Programming 

1, Reset on console. 

2. Set sense switch 4 on to print iteration information, off 

to bypass printing. 

3« Place program decks and data in read hopper. 

If optimum solution has .just been run and is still in 

memory, use sequence A. 



OR Punch SoLvrto*/ 



/ ,Z7W 

1 L?Zo- IO P/\RA~ 




71 



XX 
ID 



XX Y 
CA*D 



Lf>20 
? A*AM 



If optimum solution has been punched by LE20-7, Punch 



for Restart, use this sequence B« 



3~£ 



o-TI 



1.9X0 
DflTA 



L*AD 



o 



o 



o 
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Follow this sequence with sequence A, 
U. Push load* 

Push punch start (if needed)* 

6. When only last card in read hopper, use reader start* 

7. If additional iterations are desired, reload sequence A in read 
hopper and push reader start* 

Note s If parametric vector specified is in current basis, 
LP 20-9 will type "ID basic" and stop at OlOliw If parametric vector 
specified is neither basic nor nonbasic, LP20-9 will type "I can ! t 
find it" and stop at 009 88. If the parametric vector can be added 
to b without limit, LP20-9 will type "Solution unbounded" and stop 
at 01722. 

If the problem is inconsistent, LP20-10 will -type "Inconsistent 
problem" and load the following program to print the last solution* 
Other variations of program sequence are possible. One may want to stop 
in the middle of a problem for restart later* 
1. Turn on sense switch 2 to halt after the completion of one iteration 

in the dual or simplex program? 
2* Remove decks from read hopper* 
3. Nonprocess runout* 
h* Reset on console. 

5. Load LP20-7* Matrix Punch for Restart, in read hopper* 

6. Push load and punch start. 

7. Push reader start to read last card. 

8. Lift blank cards from punch hopper* 

9« Nonprocess card punch to obtain last punched card and two blank cards. 
One may want to punch the initial table for 80 x 80 listing for a visual 
record of actual problem solved. Use LP20-1 to load data, follow with 
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LP20-6 to print or punch the initial matrix, and then follow with LP20-2 
and the remaining programs of the main sequence to solve the problem. 

If an inconsistent problem is detected by the dual or an unbounded 
solution by the simplex program, remove program decks from read hopper, 
nonprocess the last cards out, and load LP20-6 to print or punch the 
last solution. 



X.A, irzo se^H list/a/g-^. 



END OF PASS 


1 








00010* 


LP20- 


1, DATA LOADER, 


LINEAR PROGRAMMING, 


00020* 








00030 


DORG 


402 










00402 




00040M 


OS 


3 


00404 


00003 


00050N 


OS 


It 


00408 


00004 


00060FORM 


OS 


2 


00410 


00002 


00070S 


OS 


5 


00415 


00005 


00080MPL2 


OS 


3 


00418 


00003 


00090 


DS 


1 


00419 










00001 


00100TEMP 


OS 


10 


00429 


00010 


001 10W 


DS 


,1+809 










04809 


00000 


00120PR0D 


DS 


20,99 










00099 


00020 


00130CNTR 


DS 


2 










00431 


00002 


00140CTR 


DS 


2 


00433 


00002 


00150K 


DS 


2 










00435 


00002 


001601 


DS 


3 










00438 


00003 


00170J 


DS 


3 


00441 








00003 


00180NUMBR 


DS 


10 


0045 1 








00010 


00190SIGN 


DS 


1 


00452 


00001 






O0200CAR0 


OAS 


80 




00080 






00455 


00210 


DAC 


1 ,C<£ 


00615 






00001 


002201 NPUT 


DS 


21 


OO636 








00021 


002 30 


DC 


1 .0 


00637 






00001 


00240MANT 


DS 


8 




00008 






00645 


00250 


DS 


2 


00647 








00002 
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00260EXP DS 2 

00270 DC 8,0 

00280ZER0 DC 2,-99 
00290* 

00300* READ AND WRITE ALPHA CARD, READ PARAMETER CARD AND INITIALI 
00310* 

00320START RCTY 











00660 


34 


00000 


00102 


00330 


RACD 


CARD 




00672 


37 


00455 


00500 


00340 


WATY 


CARD 




00684 


39 


00455 


00100 


00350 


RCTY 






00696 


34 


00000 


00102 


00360 


RCTY 






00708 


34 


00000 


00102 


00370 


RNCD 


M-2 




00720 


36 


00402 


00500 


00380 


SF 


M-2 




00732 


32 


00402 


00000 


00390 


SF 


M+2 




00744 


32 


00406 


boooo 


00400* 
















00410* 


CALCULATE S=W+10(M+3) AND 


STORE M+2. 






0042 0* 
















00430 


TFM 


S.W 
















00756 


16 


00415 


154809 


00440 


TF 


TEMP.M 


















00768 26 00429 


00404 


00450 


AM 


TEMP, 3, 10, 


TEMP= 


M+3 












00780 


1 1 


00429 


OOOT53 


00460 


A 


S-1 , TEMP 


















00792 


21 


00414 


00429 


00470 


SM 


TEMP, 1 , 10 










00031 






00804 


12 


00429 


00480 


TF 


MPL2 , TEMP 
















00816 


26 


00418 


00429 


00490 


TDM 


MPL2+1 ,0 
















00828 


15 


00419 


00000 


00500 


BD 


CLER , FORM 
















00840 


43 


00964 


00410 



00510* 

00520* HERE IF DATA IS IN FLOATING POINT FORM - LOAD ENTIRE MATRIX. 

00530* 

00540L0AD TFM RDMAT+6,W-9 

00852 16 00906 54800 

00550 A RDMAT+5 ,MPL2 

00864 21 00905 00418 



00649 00002 
00657 00008 
00659 00002 
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00560 


TF 


CHECK+1 1 , RDMAT+6 


00570 


AM 


CHECK+1 1,71, 10 


00580RDMAT 


RNCD 


99999 


00590CHECK 


BNR 


MOD , 99999 


00600 


B 


END 


00610 


00RG 


*-3 


00620M0D 


AM 


RDMAT+6, 70, 10 


00630 


AM 


CHECK+1 1,70, 10 


00640 


B 


RDMAT 


00650 


DORG 


*-3 


00660* 
00670* 
00680* 
00690CLER 


COMPUTE MATRIX SIZE AND 
TF TEMP , N 


00700 


AM 


TEMP, 3, 10 


00710 


M 


MPL2 , TEMP 


00720 


TFM 


CMP1+1 1 ,W-10 


00730 


SF 


PROD-3 


00740 


A 


CMP1+10.PR0D 


00750 


TFM 


CLEAR+23.W 


00760CLEAR 


TFLS 


99999, ZERO 


00770 


AM 


CLEAR+23, 10,10 


00780CMP1 


CM 


CLEAR+2 3,99999 


00790 


BNP 


CLEAR 


00800* 
00810* 
00820* 
00830 


LOAD MATRIX WHEN DATA 1 
TFM CNTR.1,10 


00840L0ADR 


RACD 


CARD 


00850 


TD 


CARD+36,400 



00876 
00888 
00900 
00912 
00924 
00932 
00932 
00944 
00956 
00964 
MATRIX 

00964 

00976 

00988 

01000 

01012 

01024 

01036 

01048 
01060 
01067 
01072 

01078 

01090 

01102 

EXPLI CI 



26 00923 00906 
11 00923 00071 
36 99999 00500 
45 00932 99999 
49 02596 00000 

11 00906 00070 
11 0092 3 00070 
49 00900 00000 

NULL. 

26 00429 00408 
1 1 00429 00003 
23 00418 00429 
16 01 101 04799 
32 00096 00000 

21 01100 00099 

16 01071 04809 

16 02651 01071 
49 02620 00000 
00005 99999 
00005 00659 

11 01071 OOOlO 

14 01071 99999 

47 01048 01100 

T DECIMAL FORM. 



01 114 16 00431 00001 
01126 37 00455 00500 
01 138 25 00491 00400 



© 
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00860 


TD 


CARD+76,400 


01150 25 


00531 00400 


00870 


TD 


CARD+1 16,400 








01162 25 


00571 00400 


00880 


TD 


CARD+156,400 










01174 25 


00611 00400 


00890 


BD 


ELOAD, CARD+1, .MIDDLE 


DIGIT OF 1 


FIELD BLANK. 






01186 43 


01322 00456 


00900AL0AD 


CM 


CNTR.4,10, IS CARD 


FINISHED. 








01198 14 


00431 00004 


00910 


BNE 


BLOAD 


01210 47 


01254 01200 


00920 


TFM 


CL0AD+11, CARD+1,, REINITIALIZE CLOAD AND DLOAD 






01222 16 


01301 00456 


00930 


TFM 


DLOAD+11 ,CARD-1 










01234 16 


01321 00454 


00940 


B 


LOADR-12 


01246 49 


01114 00000 


00950 


DORG 


*-3 


01254 




OO96OBLOAD 


AM 


CNTR, 1 ,10 










01254 11 


00431 00001 


00970 


AM 


CLOAD+11,40,10 








01266 11 


01301 00050 


00980 


AM 


DLOAD+11 ,40,10 










01278 11 


01321 00050 


00990CL0AD 


BD 


DLOAD, CARD+1 , 7 


OI29O 43 


01310 00456 


01000 


B 


A LOAD 


01302 49 


01198 00000 


01010 


DORG 


*-3 


01310 




01020DLOAD 


TR 


CARD-1,CARD-1,7 










01310 31 


00454 00454 


01030* 










01040* TRANSMI 


T DIGITS DESIGNATING 


ROW. 




01050* 










01060EL0AD 


TD 


1 -2 , CARD 










01322 25 


00436 00455 


01070 


TD 


I-1.CARD+2 










01334 25 


00437 00457 


01080 


TD 


1 ,CARD+4 










01346 25 


00438 00459 


01090 


SF 


1-2 


01358 32 


00436 00000 


01100 


SF 


CARD+3 


01370 32 


00458 00000 


01110 


CM 


CARD+4,70, 10, IS IT 


NONBASIC C. 








01382 14 


00459 000?0 


01 120 


BNL 


TRCOL 


01394 46 


01418 01300 


01130 


SF 


I ,,,SET ROW INDEX = 


-1 . 








01406 32 


00438 00000 


01 140* 










01150* TRANSMI 


T DIGITS DESIGNATING 


COLUMN. 





© 



© 



01160* 














01170TRCOL 


TO 


J-2.CARD+8 
















01418 25 


00439 


00463 


01180 


TD 


J-1,CARD+10 
















01430 25 


00440 


00465 


11 90 


TD 


J.CARD+12 














01442 25 


00441 


00467 


01200 


SF 


J -2 




01454 32 


00439 


00000 


01210 


SF 


CARD+11 




01466 32 


00466 


00000 


01220 


CM 


CARD+12,70, 10, IS 


IT BASIC C. 










01478 14 


00467 


00070 


01230 


BNL 


ACLFL 
















01490 46 


01514 


01300 


01240 


SF 


J.., SET COLUMN INDEX = -1. 














01502 32 


00441 


00000 


01250ACLFL 


CF 


CARD+3 




01514 33 














00458 


00000 


01260 


CF 


CARD+11 
















01526 33 


00466 


00000 


01270 


CM 


I ,999,9, IS ROW = 


999, 


END CARD 


00438 


00599 




01538 14 


01280 


BE 


END 




01550 46 


02608 


01200 


01290* 














01300* COMPUTE 


ADDRESS OF 1 , J ELEMENT. 








01310* 














01320 


TF 


ST0RE+23,S 














01562 26 


02593 


00415 


01330 


TF 


TEMP, J,, COLUMN INDEX. 














01574 26 


00429 


00441 


01340 


AM 


TEMP, 1,10 








00001 






01586 11 


00429 


01350 


M 


MPL2,TEMP 






00418 








01598 23 


0WZ9 


01360 


A 


PROD, 1 








00438 






01610 21 


00099 


01370 


SF 


PROD-3 
















01622 32 


00096 


00000 


01380 


A 


ST0RE+22.PR0D 














01634 21 


02592 


00099 


01390 


TF 


FLSET+18.STORE+23 




01646 26 


01892 








02593 


01400 


CM 


J , 1 , 9 1 1 








00O01 






01658 14 


00441 


01405 


BNE 


ROWMI 1 






01906 










01670 47 


01200 


01410* 














01420* HERE IF 


BASIC OR NONBASIC 


C. 








01430* 














01440INITI 


TFM 


K,0, 10 








000O0 






01682 16 


00435 


01450 


TFM 


TR 1 D+6, NUMBR-9 








00442 






01694 16 


01724 



© 
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01460 


TFM 


01470TRI D 


TD 


01480 


AM 


01490 


AM 


01500 


AM 


01510 


CM 


01520 


BNE 


01530 


SF 


01540 


CM 


01550 


BNL 


01560 


CM 


01570 


BE 


01580 


SF 


01590BCLFL 


CF 


01600FLSET 


SF 


01610 


TF 


01620 


B 


01630 


DORG 


01640R0WMI 1 


BNF 


01650 


B 


01660 


DORG 


01670* 




01680* HERE IF 


01690* 




01700TREL 


TD 


01710 


TR 


01720 


SF 


01730 


CM 


01740 


BNL 



TR I D+1 1 , CARD+16 
99999,99999 
TRI D+6, 1,10 
TRI D+1 1,2,10 
K, 1, 10 
K, 10, 10 
TRID 
CARD+33 



01706 16 01729 00471 
01718 25 99999 99999 
01730 11 01724 OOOGl 
01742 11 01729 00002 
01754 11 00435 OOOfll 
01766 14 00435 00070 
01778 47 01718 01200 



01790 32 00488 00000 
CARD+34,70,10, IS LAST DIGIT A POSITIVE NUMBER. 

01802 14 00489 00070 

BCLFL 

01814 46 01862 01300 
CARD+34,0,10, IS LAST DIGIT BLANK. 

01826 14 00489 OOOBO 



BCLFL 
NUMBR 
CARD+35 
NUMBR-9 
99999, NUMBR 
A LOAD 
*-3 



01838 46 01862 01200 
01850 32 00451 00000 
01862 33 00490 00000 
01874 32 00442 00000 
01886 26 99999 00451 
01898 49 01198 00000 



01906 

TREL, I , , IS IT NONBASIC C. 

01906 44 01926 00438 

INITI 

01918 49 01682 00000 

*-3 

01926 

AN A OR B ELEMENT. 
CARD+36,400 

INPUT-20,CARD+15 

INPUT-20 



01926 25 00491 00400 
01938 31 00616 00470 



01950 32 00616 00000 
INPUT-19,70, 10, IS FIRST DIGIT A NUMBER. 

01962 14 00617 0007 

CLRFLG 

01974 46 02086 01300 



01750 


CM 


I NPUT-19,20, 10, IS 


IT MINUS. 






01986 14 00617 00020 


01760 


BE 


NEG 


01998 46 02066 01200 


01770 


BD 


CLRFLG, 1 NPUT-19, , 1 


S IT BLANK. 






02010 43 02086 00617 


1 780 


CF 


S 1 GN 








02022 33 00452 00000 


017Q0SHFTSN 


SF 


1 NPUT-18 








02034 32 00618 00000 


1800 


TR 


1 NPUT-20, 1 NPUT-18 








02046 31 00616 00618 


01810 


B 


FLOAT 


02058 49 02098 00000 


01820 


DORG 


*-3 


02066 


01830NEG 


SF 


SIGN 








02066 32 00452 00000 


01840 


B 


SHFTSN 


02078 49 02034 00000 






01 850 


DORG 


*_3 








02086 


01860CLRFLG 


CF 


SIGN 


02086 33 00452 00000 


0187OFL0AT 


TFM 


EXP.O, 10 


02098 16 00649 OOOOO 




01880 


TFM 


DEC+6, 1 NPUT-19 


02110 16 02152 00617 






01890 


TFM 


FLDDEF+6, 1 NPUT-18 


02122 16 02140 00618 




01900FL00EF 


SF 


99999 


02134 32 99999 00000 








CM 


QQQQQ 2 If). IS 1 T A 


DECIMAL 




02146 14 99999 OOOO3 


01920 


BE 


SHFTDC 


02158 46 02214 01200 








AM 


DEC+6,2, 10 


02170 11 02152 00002 




019^0 


AM 


FLDDEF+6, 2, 10 


02182 11 02140 00002 




019*50 


AM 


EXP, 1,10 


02194 11 00649 OOOOl 




01 960 


B 


FLDDEF 


02206 49 02134 00000 






01970 


DORG 


*-3 


02214 






01980SHFT0C 


TF 


*+47, FLDDEF+6 


02214 26 02261 02140 




01990 


TF 


*+30,0EC+6 


02226 26 02256 02152 




02000 


SM 


*+l8, 1, 10 


02238 12 02256 OOOOl 




02010 


TR 


99999,99999 






02250 31 99999 99999 


02020ZRTST 


BD 


TRSMT, I NPUT-19 


02262 43 02318 00617 





02030 


TR 


02040 


SM 


02050 


BNR 


02060 


B 


02070 


DORG 


02080TRSMT 


TFM 


02090 


TFM 


02100 


TFM 


02110 


TFM 


02120TSTRC 


BNR 


02130 


B 


02140 


DORG 


02150STRDIG 


TD 


02160 


AM 


02170 


AM 


02180 


AM 


02190 


SM 


02200 


B 


02210 


DORG 


02220FI LL 


TF 


02230 


SM 


02240 


BNP 


02250STRZR 


TDM 


02260 


AM 


02270 


B 


02280 


DORG 


02290S IGNST 


BNF 



I NPUT-20, I NPUT-18 
EXP, 1,10 
ZRTST, I NPUT-19 
A LOAD 
*-3 

CTR,9, 10 

TSTRC+1 1,1 NPUT-19 
STRDIG+6.MANT-7 
STRDIG+11, INPUT-19 
STRDIG,99999 
FILL 

*-3 

99999,99999 
TSTRC+11,2, 10 
STRDIG+6, 1, 10 
STRDIG+11, 2, 10 
CTR, 1, 10 
TSTRC 
*-3 

STRZR+6, STRDIG+6 

CTR, 1, 10 

SIGNST 

99999,0 

STRZR+6, 1,10 

FILL+12 

*-3 

*+24,SI GN 



02274 31 00616 00618 
02286 12 00649 OOOOl 
02298 45 02262 00617 
02310 49 01198 00000 

02318 

02318 16 00433 000G9 
02330 16 02377 00617 
02342 16 02392 00638 
02354 16 02397 00617 
02366 45 02386 99999 
02378 49 02454 00000 
02386 

02386 25 99999 99999 
02398 11 02377 00002 
02410 11 02392 00001 
02422 11 02397 00002 
02434 12 00433 OOOOl 
02446 49 02366 00000 
02454 

02454 26 02496 02392 
02466 12 00433 OOOOl 
02478 47 02522 01100 
02490 15 99999 00000 
02502 11 02496 OOOOl 
02514 49 02466 00000 
02522 

02522 44 02546 00452 



a 



02300 SF MANT 

02310 SF MANT-7 

02320 TF EXP-2 ,MANT 

0233OSTORE TFLS 99999, EXP 



02340 
02 350 
02360END 
02370 
02 380 



B A LOAD 
DORG *-3 
RNCO 
B 
OEND START 



LOAD SUBROUTINES 



END OF PASS I 1 



02534 

02546 

02558 

02570 
02582 
02589 
02594 



32 00645 

32 00638 

26 00647 

16 02663 
49 02632 
00005 
00005 



00000 

00000 

00645 

02593 
00000 
99999 
00649 



02600 49 01198 00000 
02608 

02608 36 00000 00500 
02620 49 00000 00000 
00660 



02632 
02644 



16 03066 
49 02756 



03524 







02390* LP20-2, SHADOW PRICE, LINEAR PROGRAMMING, NOV. 16, 1962. 

02400* 



02410 


DORG 


402 


00402 




0242 OM 


DS 


3 


00404 


00003 


02430N 


DS 


4 










00408 


00004 


02440F0RM 


DS 


2 


00410 


00002 


02450S 


DS 


5 


00415 


00005 


02460MPL2 


DS 


3 


00418 


00003 


02470 


DS 


1 


00419 








00001 


02480W 


DS 


,4809 


04809 








00000 


02490PR0D 


DS 


20,99 


00099 


00020 


02500CNTR 


DS 


3 


00422 


00003 


02510ZER 


DC 


8,0 










00430 


00008 


02520ZER0 


DC 


2,-99 


00432 


00002 


02530SIGN 


DS 


1 










00433 


00001 


02540MCNTR 


DS 


3 


00436 


00003 


02550NCNTR 


DS 


3 


00439 


00003 


02560TEMP 


DS 


10 










00449 


00010 


02570HDNG 


DAC 


49, ITER 


FUNCTIONAL 




00451 


00049 


02580HDNG2 


DAC 


12, VAR 0UT(2) 


00549 


00012 



02590* 

02600* FLOAT AND STORE BASIC C. 



02620START TFM STRC+2 3, W+20, .INITIAL ADDRESS OF FLOATED BASIC C. 

00572 16 00989 04829 

02630 TF L00P+35.S 

00584 26 00643 00415 

02640 TF CNTR ,M 

00596 26 00422 00404 

02650L00P TDM SIGN,0 

00608 15 00433 00000 

02660 AM LOOP+35, 10, 10 

00620 1 1 00643 00010 
02670 TF W-4, 99999, .SECOND ADDRESS BECOMES S+10. 

00632 26 04805 99999 



02680 


SF 


W-9 
















00644 


32 


04800 


00000 


02690 


C 


W-4.ZER-2 














00656 


24 


04805 


00428 


02700 


BNE 


FLOATC 














00668 


47 


007 18 


01200 


02710 


TFLS 


W.ZERO 












00680 


16 


01707 


00703 








00692 


49 


01676 


00000 








00699 


00005 


04809 








007 04 


00005 


004 32 


02720 


B 


STRC 














00710 


49 


00966 


00000 


02730 


DORG 


*_3 


00718 








02740FL0ATC 


TFM 


W,03, 10 












00718 


16 


04809 


00 00 3 


02750 


TFM 


TSTDIG+11.W-9 












00730 


16 


00825 


04800 


02760 


TFM 


CLRREC+1 1 ,ZER-6 








00424 






00742 


16 


00917 


02770 


TFM 


CLRFLG+6, W-3 








04806 




00754 


16 


00924 


02780 


BNF 


*+24,W-4 








04805 




00766 


44 


00790 


02790 


SF 


SIGN 














00778 


32 


00433 


00000 


02800 


CF 


W-4 






04805 










00790 


33 


00000 


02810 


TO 


W-3, 4oo 












00802 


25 


04806 


00400 


02820TSTDIG 


BD 


OUT 1,99999 






00882 






00814 


43 


99999 


02830 


AM 


1, 10 


00826 


a 


00825 


OOOOl 


02840 


SM 


W,1,10 






04809 


OOOOl 




00838 


12 


02850 


AM 


CLRREC+1 1,1, TO 








OOOOl 




00850 


1 1 


00917 


02860 


SM 


CLRFLG+6, 1, 10 






00924 


OOOOl 


00862 


12 


02870 


B 


TSTOIG 






00814 








00874 


49 


00000 


02880 


DORG 


*_3 


00882 


















028900UT1 


TF 


SHIFT+11.TST0IG+11 








00825 




00882 


26 


00905 


02900SHIFT 


TR 


W-9, 99999 






04800 






00894 


31 


99999 


0291 OCLRREC 


TF 


W-2.ZER0-6 












00906 


26 


04807 


00426 


02920CLRFLG 


CF 


99999 














00918 


33 


99999 


00000 



02930 


BNF 


STRC-12 .SIGN 


02940 


SF 


W-2 


02950 


SF 


W-9 


02960STRC 


TFLS 


99999, W 


02970 


AM 


STRC+23, 10, 10 


02980 


SM 


CNTR, 1, 10 


02990 


BNZ 


LOOP 


03000* 

03010* FLOAT AND STORE NONBASIC 
03020* 

030300UT2 TF STRC+23.S 


03040 


A 


STRC+22 ,MPL2 


03050 


A 


STRC+22,MPL2 


03060 


AM 


LOOP+35, 10, 10 


03070 


TF 


LOOP+23,MPL2+1 


03080 


TF 


STRC+41.MPL2+1 


03090 


TF 


CNTR, N 


03100 


TFM 


CLRFLG+18.SETFLG 


03110 


TFM 


CLRFLG+25,41, 10 


03120 


TFM 


0UT2+1.49.10 


03130 


TFM 


0UT2+6.CALCDJ 


03140 


B 


LOOP 


03150 


DORG 


*-3 


031 60SETFLG 


SF 


W-2 


03170 


B 


STRC-12 


03180 


DORG 


*-3 



00930 


44 


00954 


00433 


00942 


32 


04807 


00000 


00954 


32 


04800 


00000 


00966 
00978 
00985 
00990 


16 01707 
49 01676 
00005 
00005 


00989 

00000 

99999 
04809 


00996 


] 1 


OO989 


000T0 


01008 


12 


00422 


OOOOl 


01020 


47 


00608 


01200 


01 032 


26 


00989 


00415 


01044 


21 


00988 


00418 


01056 


21 


00988 


00418 


01068 


11 


00643 


ooolo 


01080 


26 


00631 


00419 


01092 


26 


01007 


00419 


01 104 


26 


00422 


00408 


01116 


16 


00936 


01 172 


01 128 


16 


00943 


ooom 


01 140 


16 


01033 


0004" 9 


01152 


16 


01038 


01 192 


01164 


49 


00608 


00000 


01 172 








01172 


32 


04807 


00000 


01 184 


49 


00954 


00000 



01 192 



a 



03190* 

03200* CALCULATE AND STORE D(J)=Z(J)-C(J) VALUES. 
03210* 

03220CALCDJ TF NCNTR , N 









01192 


26 00439 00408 


03230 


TF 


ZRFNCT+2 3.S 










01204 


26 01251 00415 


03240 


A 


ZRFNCT+22 ,MPL2 










01216 


21 01250 00418 


03250ZRFNCT 


TFLS 


99999, ZERO 




16 01707 01251 
49 01676 00000 
00005 99999 
00005 00432 






01228 
01240 
01247 
01252 


O326O 


TF 


DJLOOP+28, S 








01258 


26 01358 00415 


03270 


AM 


DJLOOP+28, 10, 10 








01270 


11 01358 OOOTO 


03280 


A 


DJL00P+27.MPL2 








01282 


21 01357 00418 


03290 


TFM 


FMULT+28, W+20 




16 01388 04829 






01294 


03300 


TF 


FADD+2 3,ZRFNCT+2 3 








01306 


26 01413 01251 


03310L00P2 


TF 


MCNTR.M 










01318 


26 00436 00404 


03320DJLOOP 


TFLS 


TEMP ,99999 




16 01707 01353 
49 01676 00000 
00005 00449 
00005 99999 




01330 
01342 
01349 
01354 


O333OFMULT 


FM 


TEMP ,99999 


01360 
01372 
01379 
01384 


16 01707 01383 
49 01656 00000 
00005 00449 
00005 99999 






03340FAOD 


FA 


99999, TEMP 


01390 
01402 
01409 
01414 


16 01707 01413 
49 01636 00000 
00005 99999 
00005 00449 






03350 


AM 


DJLOOP+28, 10, 10 




11 01358 00010 




01420 


O336O 


AM 


FMULT+28, 10, 10 




11 01388 OOOTO 




01432 


03370 


SM 


MCNTR, 1, 10 




12 00436 OOOOl 




01444 


O338O 


BNZ 


D J LOOP 










01456 


47 01330 01200 


03390 


AM 


DJLOOP+28, 20, 10 




11 01358 00020 






01468 


03400 


TFM 


FMULT+28, W+20 




16 01388 04829 






01480 


03410 


A 


FADD+22,MPL2 










01492 


21 01412 00418 


03420 


SM 


NCNTR, 1 , 10 








01504 


12 00439 00001 


03430 


BNN 


L00P2 










01516 


46 01318 01300 



03440 


BNC1 


END 


03450 


RCTY 




03460 


RCTY 




03470 


WATY 


HDNG 


03480 


WATY 


HDNG2 


03490 


RCTY 




03500 


RCTY 




03510END 


RNCD 





03520 


B 





03530 


DEND 


START 


LOAD SUBROUTINES 





END OF PASS I I 



01528 47 01612 00100 
01540 34 00000 00102 
01552 34 00000 00102 
01564 39 00451 00100 
01576 39 00549 00100 
01588 34 00000 00102 
01600 34 00000 00102 
01612 36 00000 00500 
01624 49 00000 00000 
00572 

01636 16 021 10 02612 
01648 49 01696 
01656 16 02110 03112 
01668 49 01696 
01676 16 02110 03352 
01688 49 01800 



74. 
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03540* 
O3550* 
03560* 
03570* 
03580 



DS 
DS 
DS 
DS 
DS 
DS 
DS 



03590M 
O36OON 
O36IOFORM 

0362 OS 

03630MPL2 
03640 
03650W 
O366OPROD 
036700UTPUT DS 
O368O DC 
03690R DS 
03700C0LADR DS 
03710R0WADR DS 
03720ARKADR DS 
03730CNTCOL DS 
03740CNTR0W DS 
03750TEMP1 DS 
03760TEMP2 OS 
03770B1MIN DS 
O378ODJMIN DS 
03790AIKMAX DS 
O38OO DC 
038101 NF DC 



LP20-3, DUAL, LINEAR PROGRAMMING, NOV. 16, 1962. 
REMARKS ON MACROS FOLLOW MACRO INSTRUCTIONS. 
DORG 402 
DS 



00402 

3 NUMBER OF RESTRAINING EQUATIONS. 

00404 00003 
4,, NUMBER OF NONBASIC ACTIVITIES. 

00408 00004 

2 FORM OF INPUT - IMPLIES FLT. PT., 1 IMPLIES DEC I M/ 
00410 00002 

5,, REFERENCE ADDRESS FOR MATRIX, = W+10(M+3). 

00415 00005 

3,,M+2 

00418 00003 

1 00419 00001 

,4809, REFERENCE ADDRESS. 

04809 00000 

20,99, PRODUCT ADDRESS. 

00099 00020 



00429 00010 

00430 00001 

MAX OR Ml N RATIO FOR DUAL OR SIMPLEX ALGORITHM. 
00440 00010 



10 
1,<s> 
10, 
5,, 
5,, 
5,, 
3,, 
3,, 
10, 
10, 
10, 
10, 
10, 

8,99999999 
2,99,, INFINITY 



ADDRESS OF D(K) . 
ADDRESS OF B(R). 
ADDRESS OF A{R,K). 
COLUMN COUNTER. 
ROW COUNTER. 



00445 00005 
00450 00005 
00455 00005 
00458 00003 



00461 00003 
TEMPORARY WORK ADDRESS. 

00471 00010 
TEMPORARY WORK ADDRESS. 

00481 00010 



MINIMUM B(l). 
MINIMUM D(J). 



00491 00010 



00501 00010 

DENOMINATOR OF SIMPLEX RATIO, USED TO BREAK TIES 
00511 00010 

00519 00008 

00521 00002 



a 



76. 



03820 DC 
03830NEGINF DC 
0381+0 DC 
03850ZER0 DC 
03860 DC 
038700NE DC 
O388OESSZER DC 



8,-99999999 

00529 00008 
2,99,, NEGATIVE INFINITY. 

00531 00002 



8,0 

2,-99,, ZERO 
8, 10000000 
2,1,, ONE. 
2,-07 



00539 00008 
005^ 1 00002 
00549 00008 
00551 00002 
00553 00002 



03890* 

O39OO* TRANSFORM ENTIRE MATRIX. 

03910* (1) COMPUTE RECIPROCAL OF PIVOT ELEMENT 

03920* (2) SET PIVOT CELL = ZERO. 

03930* (3) MOVE PIVOT COLUMN TO WORKING COLUMN 

03940* (4) SET PIVOT COLUMN = UNIT VECTOR. 

03950* 

2 



03960 DS 

03970TRNMTX TF I1+23,ARKADR 

03980 TF I 2+23, COLADR 

03990 TF CNTROW.M 

04000 TF FDI V1+28,ARKADR 

04010 TFM MOVELP+23.W+10 

04020 TF MOVELP+28, COLADR 

04030 TF PI VR0W+23.ARKADR 

04040M0VEK TFLS W,0NE 



04050FDIV1 FD W, 99999 



04060* 
04070 1 1 



ADDRESS OF A(R,K) 
TFLS 99999, ZERO 



04080* ADDRESS OF A(R,K) . 

04090M0VELP TFLS 99999,99999 



00555 00002 

00556 26 00723 00455 

00568 26 OO783 00445 

00580 26 00461 00404 

00592 26 00698 00455 

00604 16 00753 04819 

00616 26 00758 00445 

00628 26 00873 00455 

00640 16 02753 50663 
00652 49 02722 00000 
00659 00005 54809 
00664 00005 50551 

00670 16 02753 50693 
00682 49 02702 00000 
00689 00005 54809 
00694 00005 99999 



00700 16 02753 50723 
00712 49 02722 00000 
00719 00005 99999 
00724 00005 50541 



00730 16 02753 50753 

00742 49 02722 goooo 

00749 00005 99999 



a 



77. 



04100* W+10, COLADR. 
0411012 TFLS 99999, ZERO 



04120* COLADR. 

04130 AM MOVELP+23, 10, 10 

04140 AM MOVELP+28, 10, 10 

04150 AM 12+23,10,10 

04160 SM CNTROW.1,10 

04170 BNN MOVELP 

04180PIVROW TFLS 99999, ONE 



00754 00005 



99999 



00760 16 02753 50783 
00772 49 02722 00000 
00779 00005 99999 
00784 00005 50541 



04 1 90* 
04200* 
04210* 
04220* 
04230 

04240 

04250PRLP 



04260 

04270 

04280 

042 90* 
04300* 
04310* 
04320 

04330 

04340 

04350 



00790 

00802 

00814 

00826 

00838 

00850 
00862 
00869 
00874 



11 00753 OOOlO 
11 00758 000T0 

11 00783 00070 

12 00461 00051 

46 00730 01300 

16 02753 50873 
49 02722 00000 
00005 99999 
00005 50551 



ADDRESS OF A(R,K). 
(5) MULTIPLY PIVOT ROW BY RECIPROCAL OF PIVOT ELEMENT. 

TF PRLP+23.ROWADR 

TF CNTCOL.N 

FM 99999, W 



00880 
00892 



26 00927 
26 00458 



00450 
00408 



A PRLP+22 ,MPL2 

SM CNTC0L,1,10 

BNN PRLP 

(6) TRANSFORM ENTIRE MATRI 

TFM R0WLP+6.W+10 

TF 14+11, S 

A 14+10, MPL2 

TFM FMUL+28.W+10 



00904 
00916 
00923 
00928 

00934 

00946 

00958 



16 02753 
49 02682 
00005 
00005 

21 00926 

12 00458 

46 00904 



50927 
00000 
59999 
54809 

00418 

00051 

01300 



X. 



00970 16 01036 54819 
00982 26 01077 00415 
00994 21 01076 00418 
01006 16 01 160 54819 



76. 



04360 TF 
04370R0WLP CM 



04380 

04390 

0440014 

04410 

04420 

04430ELLP 



04440* 
04450FMUL 



04460* 
044701 5 



BE 

TF 

TFM 

TF 

TF 



CNTROW.M 

01018 26 00461 00404 
99999,99,1011, IS A(i,K), WORKING COLUMN, _EQUAL TO ZERO. 

01030 14 99999 00099 



NX TROW 

ELLP+28.R0WADR 
15+23,99999, ,S+10(M+2) 
CNTCOL.N 
151+6,15+23 



TFLS TEMP2, 99999 



PIVOT ROW ADDRESS 
FM TEMP2, 99999 



01042 46 01276 01200 
01054 26 01130 00450 
01066 16 01185 99999 
01078 26 00458 00408 
01090 26 01198 01185 



01 102 16 02753 01125 
01114 49 02722 00000 
01121 00005 00481 
01126 00005 99999 
INCREMENT- 10(M+2). 



01132 16 02753 01155 
01144 49 02682 00000 
01151 00005 00481 
01156 00005 99999 
W+10, ADDRESS OF A(0,K), WORKING COLUMN. INCREMENT =10. 
FS 99999, TEMP2 m „ 

01162 16 02753 01185 
01174 49 02662 00000 
01181 00005 99999 
01186 00005 00481 



04480* 
04490151 


S+10(M+2), ADDRESS OF FUNCTIONAL. 1 
c 99999, ESSZER, .SAME ADDRESS AS 

01192 


NCREMENT 
15+2 3. 

24 99999 


=10(M+2). 
NCREMENT= 10(M+2) 
00553 


04500 


BL 


LOW 


01204 


47 


01704 


01300 


04510 


A 


ELLP+27.MPL2 


01216 


21 


01129 


00418 


04520 


A 


151+5, MPL2 


01228 


21 


01197 


00418 


04530 


A 


I5+22.MPL2 


01240 


21 


01 184 


00418 


04540 


SM 


CNTCOL, 1, 10 


01252 


12 


00458 


OOOGl 


04550 


BNN 


ELLP 


01264 


46 


01 102 


01300 


045 60NX TROW AM 


R0WLP+6, 10, 10 


01276 


11 


01036 


00010 


04570 


AM 


FMUL+28, 10, 10 


01288 


1 1 


01160 


ooolo 


04580 


AM 


14+11, 10, 10 


01300 


11 


01077 


ooofo 



79. 



04590 


SM 


CNTROW, 1, 10 


01312 12 00461 OOOOl 




04600 


BNN 


R0WLP...IS MATRIX TRANSFORMATION FINISHED. 






01324 46 01030 01300 


04610* 








04620* 


(7) SWITCH ID/C ELEMENTS. 




04630* 








04640 


TF 


1 6+1 1.R0WADR 


01336 26 01431 00450 




04650 


TF 


SWI TCH+1 1 .COLADR 


01348 26 01419 00445 


04660 


SM 


SWITCH+11,10,10 


01360 12 01419 OOOlO 




04670 


TF 


1 6+6, SWI TCH+1 1 


01372 26 01426 01419 




04680 


S 


I6+10.MPL2 


0130*+ 22 01430 oomts 




04690 


TF 


I 7+6, 1 6+11 






0139" 2o 014 30 U1431 


04700SWI TCH 


TF 


TEMP2, 99999 


01408 26 00481 99999 




047101 6 


TF 


99999,99999 


01420 26 99999 99999 






047201 7 


TF 


99999, TEMP2 


01432 26 99999 00481 




04730 


AM 


ITER+11,1,10 


_ 

01444 11 01479 00001 




04740 


BNC1 


BBACK 


01456 47 01678 00100 






047501 TER 


TFM 


OUTPUT, 0,8 


01468 16 00429 00000 




04760 


WNTY 


OUTPUT-3 


01480 38 00426 00100 






04770 


TBTY 




01492 34 00000 00108 






04780 


TF 


PR1+28.S 


01504 26 01580 00415 




04790 


A 


PR1+27.MPL2, .ADDRESS 


OF FUNCTIONAL. 




01516 21 01579 00418 


04800 


TF 


PR2+1 1,1 6+11,, ADDRESS 


OF VARIABLE IN. 


01528 26 01617 01431 


04810 


TF 


PR3+11, 16+6,, ADDRESS 


OF VARIABLE OUT. 




01540 26 01653 01426 


0482 0PR1 


TFLS 


OUTPUT, 99999 


01552 16 02753 01575 
01564 49 02722 00000 
01571 00005 00429 
01576 00005 99999 




04830 


WNTY 


OUTPUT-9 








01582 38 00420 00100 



01+81+0 TBTY 

01+850PR2 TF OUTPUT, 99999 

01+860 WNTY 0UTPtlT-9 

01+870 TBTY 

01+880PR3 TF OUTPUT, 99999 

01+890 WNTY 0UTPUT-9 

01+900 RCTY 

01+910BBACK BNC2 *+24 

01+920 H 

01+930 BB 

01+91+0 DORG *-9 

01+950L0W TF TFL+23J51+6 

OI+96OTFL TFLS 99999, ZERO 

01+970 B 151+21+ 

01+980 DORG *-3 
01+990* 



05000* DUAL - SELECT SMALLEST B(l) 
05010* 

05020DUAL TFLS BIMIN.ZERO 



05030 TF CNTROW.M 

0501+0 TF CMP 1+28, S 

05050 A CMP1+27.MPL2 

05060 AM CMP1+28, 10, 10 



05070BICOMP TFLS TEMPI, B I Ml N 



01 594 


34 


00000 


001 08 


01 606 


26 


001+29 


99999 


01618 


38 


001+20 


00100 


01630 


3*+ 


UOUUU 


001 08 


01 61+2 


ZD 


001+29 


99999 


01651+ 


38 


001+20 


00100 


01666 


34 


00000 


00102 


01678 


47 


01702 


00200 


01690 


1+8 


00000 


00000 


01702 


i+2 


00000 


00000 


01701+ 








01701+ 


26 


01739 


01198 


01716 
01728 
01735 
OI71+O 


16 02753 
1+9 02722 
00005 
00005 


01739 
00000 
99999 
00541 


OI7I+6 


1+9 


01216 


00000 


01754 








01754 
01766 
01773 
01778 


16 02753 
1+9 02722 
00005 
00005 


01777 
00000 
001+91 
00541 


01 781+ 


26 


001+61 


001+01+ 


01796 


26 01890 


001+15 


01808 


21 


01889 


001+18 


01820 


11 


01890 


00010 


01832 
0181+1+ 
01851 
01856 


16 02753 
1+9 02722 
00005 
00005 


01855 
00000 
001+71 
001+91 
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05080CMP1 FS TEMP 1,99999 



05090* ADDRESS OF B(J). 
05100 BNP ROWSTP 

05110NEGA TF MINBI+28,CMP1+28 

05120MINBI TFLS B I Ml N, 99999 



01862 16 02753 01885 
01874 1+9 02662 00000 
01881 00005 00471 
01886 00005 99999 



01892 1+7 01958 01 100 
01901+ 26 01941+ 01890 



01916 16 02753 01939 
01928 49 02722 00000 
01935 00005 00491 
01940 00005 99999 
05130 TF ROWADR, Ml NBI+28,, SETUP ROW ADDRESS FOR MATRIX TRANSF , 

01946 26 00450 01944 

05140R0WSTP SM CNTROV/,1,10 

01958 12 00461 OOOOl 

05150 BP BICOMP-12 









01970 


46 


01820 


01100 


05 160 


BNF 


END, BIMIN-2, .FINISHED 


UNLESS 


MIN B(l ) 


IS NEC 






01982 


44 


02448 


00489 


05170* 














051 80* SELECT 


LARGEST R= D(J)/A(R,J) 










05 1 90* 














052001 NITCL 


TFLS 


R.NEGI NF 
















01994 


16 


02753 


02017 








02006 


49 


02722 


00000 








02013 


00005 


00440 








02018 


00005 


00531 


05210 


TFM 


COLADR.O 














02024 


16 


00445 


00000 


05220 


TF 


CNTCOL.N 














02036 


26 


00458 


00408 


05230 


TF 


TSTARJ+6, ROWADR 














02048 


26 


02150 


00450 


05240 


TF 


CS1+28.S 
















02060 


26 


02220 


00415 


05250 


A 


CS1+27.MPL2 
















02072 


21 


02219 


00418 


O526ORETURN 


A 


TSTARJ+5 ,MPL2 












02084 


21 


02149 


00418 


05270 


TF 


CMP2+6, TSTARJ+6 












02096 


26 


02174 


02150 


05280 


SM 


CMP2+6.2, 10 












02108 


12 


02174 


00002 


05290 


TF 


FDI V2+28, TSTARJ+6 
















02120 


26 


02250 


02150 


05300 


A 


CS1+27.MPL2 
















02132 


21 


02219 


00418 


05310TSTARJ 


CM 


99999,99, 101 1 








00099 








02144 


14 


99999 



05320 BE COLSTP 

05330CMP2 C 99999, ZERO-2 

05340 BP COLSTP 

05350CS1 TFLS TEMP2, 99999 



05360* ADDRESS OF D(J). 
05370FDIV2 FD TEMP2, 99999 



05380* ADDRESS OF A(R,J) 

05390 TFLS TEMPI, R 



02156 46 02378 01200 

02168 24 99999 00539 

02180 46 02378 01 100 

02192 16 02753 52215 
02204 49 02722 00000 
02211 00005 00481 
02216 00005 99999 



02222 16 02753 02245 
02234 49 02702 00000 
02241 00005 00481 
02246 00005 99999 



05400 


FS 


TEMP 1 ,TEMP2 


05410 


BP 


COLSTP 


05420 


TFLS 


R.TEMP2 


05430 


TF 


ARKADR.FDI V2+28 


05440 


TF 


COLADR , CS 1+28 


05450C0LSTP 


SM 


CNTCOL, 1, 10 


05460 


BP 


RETURN 


05470 


CM 


COLADR.O 


05480 


BNE 


*+l4 


05490 


H 


.ERROR HALT. 1 NCONS 


05500 


OORG 


*-9 


05510 


BTM 


TRNMTX ,0, 10 


05520 


B 


DUAL 


05530 


DORG 


*-3 



02252 
02264 
02271 
02276 

02282 
02294 
02301 
02 306 



16 02753 
49 02722 
00005 
00005 

16 02753 
49 02662 
00005 
00005 



02275 
00000 
00471 
00440 

02 305 
00000 
00471 
00481 



02312 46 02378 01 100 



02324 
02336 
02343 
02348 

02354 

02366 

02378 

02390 

02402 

02414 
I STENT 
02426 

02428 

02428 

02440 

02448 



16 02753 
49 02722 
00005 
00005 

26 00455 

26 00445 

12 00458 

46 02084 
14 00445 

47 02428 
PROBLEM. 

48 00000 



02347 
00000 
00440 
00481 

02250 

02220 

00001 

01100 

Ooooo 

01200 
OOOOO 



17 00556 OOOOO 
49 01754 OOOOO 



05540EN0 RNCD 
05550 B 

05560 DORG 2662 

05570 DEND DUAL 

LOAD SUBROUTINES 



END OF PASS I I 



02448 36 OOOOO 00500 
02460 49 OOOOO OOOOO 
02662 



01754 

02662 16 
02674 49 
02682 16 
02694 49 
02702 16 
027 1 1 * ^9 
02722 16 
02734 49 



03156 03614 
02742 

03156 04158 
02742 

03156 04398 
02742 

03156 04734 
02846 



© 
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05580* 

05590* 
05600* 
05610 



LP20-4, SIMPLEX, LINEAR PROGRAMMING, NOV. 16, 1962 
REMARKS ON MACROS FOLLOW MACRO INSTRUCTIONS. 



05620M 
05630N 
05640F0RM 
05650S 
05660MPL2 
05670 
O5680W 
05690PR0D 

057000UTPUT DS 

05710 DC 

05720R DS 

05730C0LADR DS 

05740R0WADR DS 

05750ARKADR DS 

05760CNTC0L DS 

05770CNTROW DS 

05780TEMP1 DS 

05790TEMP2 DS 

05800BIMIN DS 

O5810DJMIN DS 

05820AIKMAX DS 

05830 DC 

05840INF DC 

05850 DC 



DORG 402 

00402 

3,, NUMBER OF RESTRAINING EOUATIONS. 

00404 00003 

If,, NUMBER OF NONBASIC ACTIVITIES. 

00408 00004 
2,, FORM OF INPUT - IMPLIES FLT. PT 
00410 00002 

5,, REFERENCE ADDRESS FOR MATRIX, = W+10(M+3) 
00415 00005 

3, ,M+2 

00418 00003 

1 

00419 00001 
,4809, REFERENCE ADDRESS. 

04809 00000 

20,99, PRODUCT ADDRESS. 

00099 00020 



1 IMPLIES DECIMAL 



10 
1,@ 
10, 
5,, 
5,, 
5,, 
3,, 
3,, 
10, 

10, 
10, 



00429 00010 



00430 00001 

MAX OR MIN RATIO FOR DUAL OR SIMPLEX ALGORITHM. 
00440 00010 

ADDRESS OF D(K) . 

00445 00005 

ADDRESS OF B(R). 

00450 00005 

ADDRESS OF A(R,K). 

00455 00005 

COLUMN COUNTER. 

00458 00003 

ROW COUNTER. 

00461 00003 
TEMPORARY WORK ADDRESS. 

00471 00010 
TEMPORARY WORK ADDRESS. 

00481 00010 

Ml NIMUM B ( I ) . 

00491 00010 
10,, MINIMUM D(J). 

00501 00010 

10 , DENOMINATOR OF SIMPLEX RATIO, USED TO BREAK TIES 
00511 00010 

8,99999999 

00519 00008 

2,99,, INFINITY. 

00521 00002 

8,-99999999 

00529 00008 



05860NEGINF DC 



05870 
05880ZER0 
05890 
059000NE 



2,99,, NEGATIVE INFINITY. 

00531 00002 



DC 
DC 
DC 
DC 



05910ESSZER DC 



8,0 

2,-99,, ZERO 
8, 10000000 
2,1,, ONE . 
2,-07 



00539 00008 
00541 00002 
00549 00008 
00551 00002 
00553 00002 



05920* 
05930* 
05940* 
05950* 
05960* 
05970* 
05980* 
05990 



TRANSFORM ENTIRE MATRIX. 

(1) COMPUTE RECIPROCAL OF PIVOT ELEMENT. 

(2) SET PIVOT CELL = ZERO. 

(3) MOVE PIVOT COLUMN TO WORKING COLUMN. 
(If) SET PIVOT COLUMN = UNIT VECTOR. 



DS 

06000TRNMTX TF 



I 1+23,ARKADR 

06010 TF I2+2 3.C0LADR 

06020 TF CNTR0W,M 

06030 TF FDI V1+28.ARKADR 

06040 TFM MOVELP+2 3,W+10 

06050 TF MOVELP+28, COLADR 

06060 TF P I VR0W+23 ,ARKADR 

06070M0VEK TFLS W.ONE 

06080FDIV1 FD W, 99999 



06090* ADDRESS OF A(R,K). 

061001 1 TFLS 99999, ZERO 



00555 00002 

00556 26 00723 

00568 26 00783 

00580 26 00461 

00592 26 00698 

00604 16 00753 

00616 26 00758 

00628 26 00873 

00640 16 02753 
00652 49 02722 
00659 00005 
00664 00005 

00670 16 02753 
00682 49 02702 
00689 00005 
00694 00005 



00700 16 02753 
00712 49 02722 
00719 00005 
00724 00005 



00455 

00445 

00404 

00455 

04819 

00445 

00455 

00663 
00000 
04809 
00551 

00693 
00000 
04809 

99999 



00723 
00000 
99999 
00541 



© 
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06110* ADDRESS OF A(R,K). 
06120M0VELP TFLS 99999,99999 



061 30* W+10, COLADR. 
0614012 TFLS 99999, ZERO 



06150* COLADR. 

06160 AM MOVELP+2 3, 10, 10 

061 70 AM MOVELP+28, 10, 10 

06180 AM 12+23,10,10 

06190 SM CNTR0W,1,10 

06200 BNN MOVELP 

06210PIVR0W TFLS 99999, ONE 



00730 16 02753 00753 

00742 49 02722 00000 

00749 00005 99999 

00754 00005 99999 

00760 16 02753 O0783 

00772 49 02722 00000 

00779 00005 99999 

00784 00005 00541 



00790 

00802 

00814 

00826 

OO838 

00850 
00862 
00869 
00874 



11 00753 00070 
11 00758 000T0 

11 00783 ooolo 

12 00461 00001 
46 00730 01300 
16 02753 00873 

49 02722 goooo 

00005 99999 
00005 00551 



06220* 
062 30* 
06240* 
06250* 
06260 

06270 

06280PRLP 



06290 

06300 

06310 

06320* 
06 330* 
06340* 
06350 



ADDRESS OF A(R,K). 
(5) MULTIPLY PIVOT ROW BY RECIPROCAL OF PIVOT ELEMENT. 

TF PRLP+23.R0WADR 

TF CNTCOL,N 

FM 99999, W 



00880 26 00927 
00892 26 00458 



00450 
00408 



A PRLP+22 ,MPL2 
SM CNTC0L,1,10 
BNN PRLP 

(6) TRANSFORM ENTIRE MATRI 
TFM R0WLP+6.W+10 



00904 16 02753 
00916 49 02682 
00923 00005 
00928 00005 

00934 21 00926 

00946 12 00458 

00958 46 00904 



00927 
00000 
99999 
04809 

00418 

00001 

01300 



00970 16 01036 04819 



a 



06360 
06370 
06380 
06390 

064OOR0WLP 

06410 

06420 

064301 if 

06440 

06450 

06460ELLP 



TF 14+11, S 

A 14+10, MPL2 

TFM FMUL+28,W+10 

TF CNTROW.M 



00982 26 01077 00415 
00994 21 01076 00418 
01006 16 01160 04819 



01018 26 00461 00404 
CM 99999,99,1011, IS A(I,K), WORKING COLUMN, EQUAL TO ZERO. 

01030 14 99999 00099 

BE NX TROW 

01042 46 01276 01200 

TF ELLP+28.R0WADR 

01054 26 01130 00450 

TFM I 5+2 3 » 99999, , S+ 10(M+2 ) . 

01066 16 01185 99999 



TF 
TF 



CNTCOL.N 
151+6,15+23 



TFLS TEMP2, 99999 



01078 26 00458 00408 
01090 26 01 198 01 185 



06470* 
06480FMUL 



06490* 
0650015 



01 102 16 02753 01125 
Oil 14 49 02722 00000 
01121 00005 00481 
01126 00005 99999 
PIVOT ROW ADDRESS. I NCREMENT= 10(M+2). 
FM TEMP2, 99999 

01132 16 02753 01155 
01144 49 02682 00000 
01151 00005 00481 
01156 00005 39999 

W+10, ADDRESS OF A(0,K), WORKING COLUMN. INCREMENT =10. 
FS 99999, TEMP2 

01162 16 02753 01185 
01174 49 02662 00000 
01181 00005 39999 
01186 00005 00481 



06510* 


S+10(M+2), ADDRESS OF FUNCTIONAL. INCREMENT =10(M+2). 


06520151 


C 


99999, ESSZER, .SAME 


ADDRESS AS 15+23- 1 NCREMENT= 10(M+2) 
01 192 24 99999 00553 


06530 


BL 


LOW 


01204 47 01704 01300 


06540 


A 


ELLP+27,MPL2 


01216 21 01129 00418 


06550 


A 


151+5, MP L2 








01228 21 01197 00418 


06560 


A 


1 5+22, MPL2 


01240 21 01184 00418 


06570 


SM 


CNTCOL, 1, 10 


01252 12 00458 OOOOl 


06580 


BNN 


ELLP 


01264 46 01102 01300 



a 



065 90NX TROW AM 


ROWLP+6, 10, 10 
















01276 


11 


01036 000T0 


06600 


AM 


FMUL+28, 10, 10 














01288 


11 


01 160 


0001 


Ubbl 


AM 


14+11,10, 10 














01300 


11 


01077 


OOOlO 


06620 


SM 


CNTROW, 1 , 10 














01312 


12 


00461 


00001 


Ubo30 


BNN 


R0WLP,,,IS MATRIX TRANSFORMATION FINISHED. 








01324 


46 


01030 


01300 


Obb40* 














UbopO* 


(7) 


5WI TCH 1 D/C ELEMENTS . 










UbbbU" 












uoo/u 


TP 
1 r 


1 0+1 1 f KUWAUK 
















01336 


2b 


01431 


00450 


UobOU 


TP 
1 r 


SWl TCH+ 1 1 , CULADK 














01348 


26 


01419 


00445 




<ZM 
jn 


SWl TCH+1 1,10,10 














01360 


12 


01419 


_ 

00010 


06700 


TF 


1 O+D, onl 1 v*n+ 1 1 












01372 


26 


01426 


01419 


uo/ 1 u 




1 c 1 1 n mdi 
1 b+ 1 U , MrLZ 
















01384 


22 


01430 


00418 


UO/ZU 


jp 


1 7+6, 16+11 
















01396 


26 


01438 


01h31 


Ug/ jUjWI 1 


TF 
1 r 


TFMPO QQQQQ 
















01408 


26 


00481 


99999 


Ub/ful b 


TP 

1 r 


yyyyy, yyyyy 
















01420 


26 


99999 


qqqqq 


UO/pU 1 / 


TP 

1 r 


99999, TEMP2 
















01432 


26 


99999 


0048 1 


UD/ DU 


AM 

An 


ITER+11,1,10 














01444 


11 


01479 


00001 


0b770 


d Kir 1 


BBACK 














01456 


47 


01678 


00100 


ntiQn 1 ttd 

Uo/OU 1 1 LK 


TFM 


OUTPUT, 0,8 












01468 


16 


00429 


00000 


06790 


WNTY 


0UTPUT-3 














01480 


38 


00426 


00100 


06800 


TBTY 


















01492 


34 


00000 


00108 


06810 


TF 


PR1+28.S 
















01504 


26 


01580 


00415 


06820 


A 


PR1+27,MPL2,, ADDRESS 


OF FUNCTIONAL. 








01516 21 


01579 


00418 


06830 


TF 


PR2+1 1,1 6+11,, ADDRESS 


OF VARIABLE IN. 










01528 


26 


01617 


01431 


06840 


TF 


PR3+11, 16+6,, ADDRESS 


OF VARI 


ABLE OUT 








01540 26 01653 


01426 


06850PR1 


TFLS 


OUTPUT, 99999 
















01552 


16 


02753 


01575 








01564 49 


02722 


00000 








01571 


00005 


00429 








01576 


00005 


99999 



06860 WNTY 0UTPUT-9 

06870 TBTY 

06880PR2 TF OUTPUT, 99999 

06890 WNTY OUTPUT-9 

06900 TBTY 

0691 0PR3 TF OUTPUT, 99999 

06920 WNTY OUTPUT-9 

06930 RCTY 

06940BBACK BNC2 *+24 

06950 H 

06960 BB 

06970 DORG *-9 

O698OLOW TF TFL+23, 151+6 

06990TFL TFLS 99999, ZERO 

07000 B 151+24 

07010 DORG *-3 
07020* 



07030* SIMPLEX ALGORITHM - SELECT 
07040* 

07050S I MPLX TFLS DJMIN.ZERO 



07060 TF CNTCOL.N 

07070 TF DJC0MP+28,S 

O7O8O A DJCOMP+27 »MPL2 

07090 A DJCOMP+27, MPL2 



07100DJC0MP TFLS TEMP 1,99999 



01582 38 00420 00100 
01594 34 00000 00108 
01606 26 00429 99999 
01618 38 00420 00100 
01630 34 00000 00108 
01642 26 00429 99999 
01654 38 00420 00100 
01666 34 00000 00102 
01678 47 01702 00200 
01 690 48 00000 00000 
01702 42 00000 00000 
01704 

01704 26 01739 01198 

01716 16 02753 01739 
01728 49 02722 00000 
01735 00005 99999 
01740 00005 00541 

01746 49 01216 00000 

01754 

MINIMUM D(J)=D(K). 

01754 16 02753 Q1777 
01766 49 02722 00000 
01773 00005 00501 
01778 00005 00541 

01784 26 00458 00408 

01796 26 01860 00415 

01808 21 01859 00418 

01820 21 01859 00418 

01832 16 02753 51855 
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07110* 
07120 



O713O 
07140 
07150MI N 



01844 49 02722 
01851 00005 
01856 00005 
ADDRESS OF D(J). INCREMENT = 10(M+2). 
FS TEMPI, DJM1N 

01862 16 02753 
01874 49 02662 
01881 00005 
01886 00005 



BNN COLSTP 

TF MIN+28.DJC0MP+28 

TFLS DJMIN, 99999 



07160 TF 
O717OCOLSTP A 
07180 SM 
07190 BP 



COLADR.MI N+28 
DJCOMP+27, MPL2 
CNTCOL, 1, 10 
DJCOMP 



07200 



BNF END, DJMI N-2 



01892 46 01958 

01904 26 01944 

01916 16 02753 
01928 49 02722 
01935 00005 
01940 00005 

01946 26 00445 

01958 21 01859 

01970 12 00458 

01982 46 01832 

01994 44 02642 



00000 
00471 

99999 



01885 
00000 
0047 1 
00501 

01300 

01860 

01939 
00000 

00501 

99999 

01944 
00418 
00001 
01100 
00499 



O72IO* 

07220* SELECT MINIMUM R( I )=B( I )/A( I ,K) . 
072 30* 

072401 NITRO TFLS R, I NF 



07250 


TFM 


07260 


TF 


07270 


TF 


07280* 




07290 


TF 


07300 


SM 


07310 


TF 


07320 


A 


07330 


TF 



CNTROW.M 

TSTA I K+6, COLADR 

ADDRESS OF MINIMUM D(J) 
TSTA I K+35 , TSTA I K+6 

TSTAIK+35,2,10 

CS1+28.S 

CS1+27.MPL2 

FD I V3+28, COLADR 



02006 16 02753 
02018 49 02722 
02025 00005 
02030 00005 

02036 16 00450 

02048 26 00461 

02060 26 02146 

02072 26 02175 
02084 12 02175 
02096 26 02212 
02108 21 02211 
02120 26 02242 



02029 
00000 
00440 
00521 

00000 

00404 

00445 

02146 
00002 
00415 
00418 
00445 



© 



07340 
07350 



B R0WSTP+24 
DORG *-3 



02132 49 02436 00000 



« , 02140 
07360TSTAIK CM 99999,99,1011, IS A(l,K) = ZERO. 

02140 14 99999 00099 

BE ROWSTP 

02152 46 02412 01200 
BNF CS1, 99999,, ISA(I,K) NEGATIVE. 

02164 44 02184 99999 

B ROWSTP 



07370 
O738O 
07390 
07400 
07410CS1 

07420* 



DORG *-3 

TFLS TEMP2, 99999 



02176 49 02412 00000 
02184 



07430FDIV3 FD TEMP2, 99999 



02184 16 02753 02207 
02196 49 02722 00000 
02203 00005 00481 
02208 00005 99999 
ADDRESS OF B(l). I NCREMENT= 10 . 



07440* 
07450 



07460 

07470 
07480 

07490TAKER 
07500MAX 

07510 

07520 



ADDRESS OF A(l ,K) 
TFLS TEMPI , TEMP2 



FS TEMPI, R 

BP ROWSTP 

BE EQUAL 

TF MAX+28.TSTAIK+6 

TFLS AIKMAX,99999 

TFLS R, TEMP2 



TF 



O753OROWSTP SM 
07540 BNP 
07550 AM 



ROWADR , CS 1+28 
CNTROW, 1 , 10 
TSTBND 

TSTAIK+6, 10, 10 



02214 16 02753 02237 
02226 49 02702 00000 
02233 00005 00481 
02238 00005 99999 
INCREMENT = 10. 

02244 16 02753 02267 
02256 49 02722 00000 
02263 00005 00471 
02268 00005 00481 

02274 16 02753 02297 
02286 49 02662 00000 
02293 00005 00471 
02298 00005 00440 

02304 46 02412 01100 

02316 46 02492 01200 

02328 26 02368 02146 

02340 16 02753 02363 
02352 49 02722 00000 
02 359 00005 00511 
02364 00005 99999 

02370 16 02753 02393 
02382 49 02722 00000 
02389 00005 00440 
02394 00005 00481 

02400 26 00450 02212 

02412 12 00461 OOOOl 

02424 47 02584 01100 

02436 11 02146 OOOlO 



a 



93. 



07560 


AM 


TSTAIK+35, 10, 10 










02448 11 02175 


00010 


07570 


AM 


CS1+28, 10, 10 




0007 




02460 11 02212 


07580 


AM 


FDIV3+28, 10,10 




000T0 




02472 11 02242 


07590 


B 


TSTAIK 










02484 49 02140 


00000 


07600 


DORG 


*-3 










02492 




07610EQUAL 


TFLS 


TEMP 1 ,A 1 KMAX 




02515 
00000 
0047 1 
00511 




02492 16 02753 
02504 49 02722 
02511 00005 
02516 00005 


07620 


TF 


FSUB2+28, TSTAIK+6 










02522 26 02562 


02146 


07630FSUB2 


FS 


TEMP 1,99999 




02557 
00000 

00471 

99999 




02534 16 02753 
02546 49 02662 
02553 00005 
02558 00005 


07640 


BL 


TAKER 


02564 47 02328 


01300 


07650 


B 


ROWSTP 










02576 49 02412 


00000 


0766O 


DORG 


*-3 


02584 




O767OTSTBND 


CM 


ROWADR, 








02584 14 00450 


00000 


07680 


BNE 


*+14 










02596 47 02610 


01200 


O769O 


H 


...ERROR HALT. UNBOUNDED SOLUTION. 








02608 48 00000 


00000 


O77OO 


DORG 


*_cj 










02610 




07710 


TF 


ARKADR.MAX+28 




02368 




02610 26 00455 


07720 


BTM 


TRNMTX , , 10 




00000 




02622 17 00556 


07730 


B 


SIMPLX 










02634 49 01754 


00000 


07740 


DORG 




02642 










O775OEND 


RNCD 





02642 36 00000 








00500 



oooooooo 

MNNMMNNIO 

U.N-OU) 00*«1 0"> 
4r fr to jr to fr ro 

VD O^VD <T>*>0 CT^VO CT> 
OOOOOOOO 

CD — ^J — .-^J— — 
jrui -P"ui -p-vn -Tvi 

Ol Ol Ol Ol 
f jr f W 
M U ^ 



ro m 



00404 
04809 
00450 
00481 
00531 
00640 
00850 
01 132 
01420 
01642 
01832 
02184 
02492 



M 
W 

*R0WADR 

TEMP2 
*NEG I NF 

M0VEK 
*PI VR0W 

FMUL 

16 

PR 3 
*DJC0MP 

CS1 

EQUAL 



00408 N 
00099 PROD 
00455 *ARKADR 
00491 BIMIN 



00541 
00670 
00904 
01162 
01432 
01678 
01916 
02214 
02534 



ZERO 
FDI VI 
PRLP 
15 
17 

BBACK 
Ml N 
FDI V3 
FSUB2 



00410 
00429 
00458 
00501 
0055 1 
00700 
01030 
01192 
01468 
01704 
01958 
02 328 
02584 



FORM 
^OUTPUT 
*CNTC0L 

DJMI N 

ONE 

I 1 

R0WLP 

151 

ITER 

LOW 
*C0LSTP 

TAKER 
*TSTBND 



00415 
00440 
00461 
00511 
00553 
00730 
01066 
01276 
01552 
01716 
02006 
02 340 
02642 



S 
R 

*CNTR0W 
*A I KMAX 
*ESSZER 
*M0VELP 
14 

*NXTR0W 

PR 1 

TFL 
*l Nl TR0 

MAX 

END 



00418 
00445 
00471 
00521 
00556 
00760 
01 102 
01408 
01606 
01754 
02140 
02412 



MPL2 
*C0LADR 

TEMPI 

INF 
*TRNMTX 

12 

ELLP 
*SWI TCH 

PR2 
*SIMPLX 
*TSTA I K 
*R0WSTP 



a 



96. 



07790* 


LP20-5A, SOLUTION PRINT, 


LINEAR PROGRAMMING, 


07finn* 

u / o\j\j 








07810 


DORG 


402 








00402 


0782 OM 


DS 


3 








00404 00003 


07830N 


DS 


1. 

*t 


00408 00004 






07840FORM 


DS 


2 








00410 00002 


07850S 


DS 


5 


00415 00005 








0786OMPL2 


nc 
Do 


3 


00418 00003 






07870 


DS 


1 








00419 00001 


07880C0UNT 




3 


00422 00003 


07890ALPHA 


DAS 


80 


00425 00080 






O79OO 


DAC 


1 ,(® 


00585 00001 




07910FUN 


DAC 


14,FUNCTI ONAL = (?) 


00587 00014 




07920HDNG1 


DAC 


15, BASIC SOLUTION^ 


00615 00015 






07930HDNG2 


DAC 


33, ID CJ 


LEVEL <s> 






00645 00033 


07940HDNG3 


DAC 


33, ID CJ 


SHADOW PRICES (3 






00711 00033 


07950START 


RCTY 




00776 34 00000 






O796O 


RCTY 




00788 34 00000 






07970 


WATY 


FUN 


00800 39 00587 






07980 


TF 


FUNCT+28.S 


00812 26 00864 




07990 


A 


FUNCT+27.MPL2 


00824 21 00863 




08000FUNCT 


BTFS 


FLTF IX, 99999 





08010 
08020 
08030 
08040 
08050 



WATY 0UTPUT-20 

RCTY 

RCTY 

WATY HDNG1 
RCTY 



00848 49 02576 
00855 00005 
00860 00005 

00866 39 02319 

00878 34 00000 

00890 34 00000 

00902 39 00615 

00914 34 00000 



00102 

00102 

00100 

00415 

00418 

00859 
00000 
51452 

99999 

00100 
00102 
00102 
00100 
00102 



a 



08060 


RCTY 


















00926 


34 


UUUUU 


nn 1 no 
UU 1 UZ 


08070 


WATY 


HDNG2 














00938 


39 


UUbtt) 


nn 1 nn 
uu 1 uu 


08080 


RCTY 


















00950 


34 


UUUUU 


nn 1 no 
uu 1 uz 


08090 


RCTY 










nni H9 
UU 1 uz 






00962 


34 


UUUUU 


08100 


TF 


COUNT, M 








nn/i nil 
UU4- U*+ 






00974 


26 


00422 


08110 


TF 


BT1+11.S 








00415 




00986 26 


01057 


08120 


TF 


BT2+28.BT1 + 1 1 


00998 










26 


01 110 


01057 


08 1 30 


A 


b I Z+Z / ,nr LZ 








00418 




01010 


21 


01109 


0oi40L00r 1 


AM 


D 1 1+ 1 1 , 1 U , 1 U 








0001 




01022 


11 


01057 


no 1 en 


AM 
An 


DTO ,10 in m 








ooolo 




01034 


11 


01110 


UO 1 DUD 1 1 


RT 


ciyin qqqqq 






02376 






01046 


27 


99999 


081 70 


WA TV 
WA 1 I 


output—? (\ 

UUI r U 1 L D 














01058 


39 


02313 


00100 


081 80 


TRTV 

ID t 1 










00108 






01070 


34 


00000 


nQl nflD TO 

uo 1 yub 1 z 


D TFC. 
D tr j 


Fl TF 1 y qqqqq 












01082 


16 


02607 01105 








01094 49 


02576 


00000 








01101 


00005 


01452 








01 106 


00005 


99999 


08200 


WATY 


0UTPUT-20 














011 12 


39 


02319 


00100 


08210 


















01124 


34 


00000 


00102 


08220 


cm 


COUNT, 1 , 10 








0000 1 




01136 


12 


00422 


08230 


BP 


L00P1 


01148 


46 




01 100 






01022 


08240 


RCTY 
















01160 


34 


00000 


00102 


08250 


WATY 


HDNG3 






0071 1 


00100 




01172 


39 


08260 


RCTY 










00102 






01184 


34 


00000 


08270 


RCTY 
















01 196 


34 


00000 


00102 


08280 


TF 


COUNT, N 








00408 


01208 


26 


00422 


08290 


TF 


BT3+28.S 








00415 




01220 26 01344 


08300 


A 


BT3+27.MPL2 






01343 


00418 




01232 


21 



98. 



08310 


A 


BT3+27.MPL2 






00418 




01244 


21 01343 


08320 


TF 


LOOP2+11,BT3+28 






01344 




01256 


26 01291 


08330 


SM 


L00P2+11,10,10 






ooolo 




01268 


12 01291 


08340LOOP2 


BT 


FIX ID, 99999 


01280 


27 02376 






99999 


08350 


WATY 


0UTPUT-26 












01292 


39 02313 


00100 


08360 


TBTY 








00108 






01304 


34 00000 


08370BT3 


BTFS 


FLTF IX, 99999 


01316 
01328 
01335 
01340 


16 02607 
49 02576 
00005 
00005 


31339 
00000 
01452 

99999 




08380 


WATY 


0UTPUT-20 












01346 


39 02319 


001 00 


08390 


RCTY 




01358 










34 00000 


00 1 02 


08400 


A 


L0OP2+1O.MPL2 






00418 








01370 


21 01290 


08410 


A 


6T3+27.MPL2 




21 01343 


00418 




01382 


08420 


SM 


COUNT, 1, 10 






OOOOl 




01394 


12 00422 


08430 


BP 


L0OP2 




46 01280 








01406 


1 1 00 


08440 


RNCD 





01418 


36 00000 


00500 


08450 


B 















01430 


49 00000 


00000 


08460* 










PRI NTI NG OR 


08470* SUBROUTINE FOR PREPARING DATA 


FOR ALPHAMER 1 CAL 


08480* PUNCHING 


. INTERNAL FORMAT IS 


NEW SPS 






08490* 












08500ARG 


OS 


10 


01451 


00010 










08510FLTFIX 


CF 


ARG-9 




33 01442 






01452 


00000 


08520 


TF 


OUTPUT , SEVENS 










01464 


26 02339 


02 351 


08530 


CF 


OUTPUT-9 






00000 






01476 


33 02330 


08540 


TF 


OUTPUT- 10, DCMAL 






02361 




01488 


26 02329 


08550 


TFM 


OUTPUT-19,0,9 




16 02320 


00O00 




01500 


08560 


TFM 


SIGN, 0, 10 




16 02363 


00000 




01512 


08570 


BNF 


JUMP.ARG-2 




44 01560 


01449 




01524 



08580 


TDM 




CF 


UooUUJUiir 




r\Q(L 1 n 




uoozu 


CM 




BNP 


08640 


CM 


08650 


BH 


08660 


TFM 


08670 


TFM 


08680 


S 


08690 


S 


O87OOTRNMT 


TD 


08710 


AM 


08720 


AM 


08730 


CM 


08740 


BNH 


08750 


TF 


O876O 


TFM 


08770 


S 


08780 


TFM 


08790 


S 


08800 


S 


08810 


A 


08820WRI TE 


TFM 


088 30 


TD 


08840 


AM 


08850 


AM 



SIGN-1,2, 11 
ARG-2 

ARG,99, 101 1 
WRALPH 
ARG.O, 10 
DEC I ML 
ARG.4, 10 
LARGE 

TRNMT+11, ARG-9 
*+42, OUTPUT- 10 
*+30,ARG 
*+l8,ARG 
99999,99999 
TRNMT+11, 1, 10 
TRNMT+6,2, 10 
TRNMT+6,0UTPUT-12 
TRNMT 

WR I TE+2 3, TRNMT+11 
EXPNT2.5, 10 
EXPNT2 ,ARG 
*+47, SEVENS 
*+35,EXPNT2 
*+23,EXPNT2 
OUTPUT-12, 99999 
*+l8,OUTPUT-8 
OUTPUT-8,0 
WRITE+23,1,10 
WRI TE+18,2, 10 



01536 15 02362 00002 
01548 33 01449 00000 
01560 14 01451 00099 
01572 46 01896 01200 
01584 14 01451 00000 
01596 47 01942 01100 
01608 14 01451 00004 
01620 46 02022 01100 
01632 16 01691 01442 
01644 16 01686 02329 
01656 22 01686 01451 
01668 22 01686 01451 
01680 25 99999 99999 
01692 11 01691 OOOOl 
01704 11 01686 00002 
01716 14 01686 02327 
01728 47 01680 01100 
01740 26 01847 01691 
01752 16 02365 00005 
01764 22 02365 01451 
01776 16 01823 02351 
01788 22 01823 02365 
01800 22 01823 02365 
01812 21 02327 99999 
01824 16 01842 52331 
01836 25 02331 00000 
01848 11 01847 OOOOl 
01860 11 01842 00002 




a 



100. 



08860 


CM 


WRI TE+ 18, OUTPUT 




08870 


BNH 


WRI TE+12 


uio/z 11 uio'+z UZ339 


O888OWRALPH 


BD 


SETZRO.OUTPUT-18 


n 1 RfiL. lii niQ^t n 1 1 nn 
UIOOH •+/ UI0.JO UI 1 UU 


08890 


B 


SETSIG 


01896 43 01 PI 6 0? 3? 1 


08900 


DORG 


*-3 


01908 49 o???r onnnn 


08910SETZR0 


TDM 


OUTPUT, 


01916 


08920 


TF 


0UTPUT-20,SIGN 


D1Q1A it; fi7?2Q nnnnn 

UI Jlu 15 uuuuu 


08930 


BB 






08940 


DORG 


*-9 


OlQlifi h") nnnnn nnnnn 


08950DECIML CM 


ARG, 4, 101 1 


1 942 




BNH 


LARGE 


019^2 14 01451 00054" 


08970 


TFM 


WRITE+23.ARG-9 


niP^li U7 n?n?9 nimn 


08980 


TFM 


WRITE+l8,0UTPUT-8 


nioAA niPii7 T\\\±iit 
300 10 uioH/ uihm-z 


08990 


S 


WRITE+18.ARG 


U|^/o ID Uloti UZjjl 


09000 


S 


WRITE+18.ARG 




09010 


B 


WRI TE+12 


nonno 99 mflLo mkci 


09020 


DORG 


*-3 


UZUIH *+y UIOjjD UUUUU 


09030LARGE 


TF 


OUTPUT- 1 7 , SEVENS-7 


n9n9 9 


09040 


BNF 


JUMP2 ,ARG 


09099 9 A 09 29 9 n9 ILL 


09050 


TFM 


OUTPUT-20,20, 10 


n^n^ij. iiii n?nft9 miici 

VJ^.VJJ*t tt Ui UU£ U ItJ 1 


09060 


CF 


ARG 


02046 16 02319 00050 


09070 


CF 


0UTPUT-19 


02058 33 01451 00000 


0908OJUMP2 


TD 


OUTPUT- 16, ARG 


02070 33 02320 00000 


09090 


TD 


OUTPUT- 18, ARG- 1 


02082 25 02323 01451 


09100 


CF 


OUTPUT-18 


02094 25 02321 01450 


091 10 


TF 


OUTPUT-12 , S 1 GN 


02106 33 02 321 00000 


09120 


CF 


OUTPUT-13 


02118 26 02327 02363 


09130 


TFM 


WR+11 ,ARG-9 


02130 33 02326 00000 
02142 16 02177 31442 



09140 


TFM 


WR+6,OUTPUT-8 


02154 


16 02172 


(52331 


09150WR 


TD 


99999,99999 


02166 


25 99999 


99999 


09160 


AM 


WR+11, 1, 10 












02178 


11 02177 


ooo5i 


09170 


AM 


WR+6,2, 10 












02190 


11 02172 


000(32 


09180 


CM 


WR+6, OUTPUT 












02202 


14 02172 02339 


09190 


BNH 


WR 














02214 


47 02166 
42 00000 


01 100 


09200 


BB 




02226 


00000 


09210 


DORG 


*_q 


02228 






09220SETSI G 


TFM 


SETS+11 ,0UTPUT-16 


02228 


16 02251 


02 32 3 


09230SETS 


BD 


SET.OUTPUT-16 








09240 






02240 


43 02272 


02323 


AM 


SETS+11,2,10 










02252 


11 02251 


00052 


09250 


B 


SETS 










02264 


49 02240 


00000 


09260 


DORG 


*-3 


02272 




09270SET 


TF 


*+30, SETS+11 








09280 






02272 


26 02302 


02251 


SM 


*+l8,2, 10 


02284 


12 02 302 


00052 


09290 


TF 


99999, SIGN 














02296 


26 99999 02363 


09300 


BB 




02308 


42 00000 


00000 


09310 


DORG 


*_q 


02310 






09320 


DAS 


14 


0231 1 


00014 




093300UTPUT 


DS 


2 


02339 


00002 




09340 


DAC 


1,® 


02341 


00001 




09350SEVENS 


DC 


10,7070707070 


02351 


00010 




09360DCMAL 


DC 


10,0000000003 


02361 


00010 




09370S IGN 


DS 


2 














02363 
02365 


00002 




09380EXPNT2 


DS 


2 


00002 





09390* 

09400* SUBROUTINE FOR PREPARING I D/CJ ELEMENTS FOR PRINTING. 
09410* 

09420 DS 10 



02375 00010 



102. 



\j y^r j\jr i a i u 


TR 


ntiTPUT— ? 7 1 n— t 


02376 31 


02312 


02546 




Tn 


output— fix in— in 














02388 25 


02313 


02 366 


094 t ;o 


TO 


OUTPUT-24 , F 1 X I D-9 










02400 25 


02315 


02367 


09460 


TO 


0UTPUT-22 FIXID-8 










02412 25 




02368 


Ogl+70 


TD 


OUTPUT-20 FIXID-7 












02424 25 


02319 


02369 


09480 


TD 


0UTPUT-12,FIXI D-6 










02436 25 


02327 


02370 


09490 


TD 


0UTPUT-10,FI X 1 D-5 












02448 25 


02 329 


02371 


O9500 


TD 


0UTPUT-8,FI XI D-4 












02460 25 


02331 


02372 




TD 


0UTPUT-4 , F 1 X 1 D-3 












02472 25 


02335 


02373 


09520 


TD 


0UTPUT-2,FIXID-2 


02484 25 


02337 


02 374 


09530 


TD 


OUTPUT, Fl XI D-1 


02496 25 


02339 


02375 


09540 


BNF 


*+36,FIXID-l 


02508 44 


02544 


02375 


09550 


TFM 


OUTPUT-14,20, 10 






00020 








02520 16 


02325 


09560 


CF 


OUTPUT-15 


02532 33 


02324 


00000 


09570 


BB 




02544 42 


00000 


00000 


09580 


DORG 


*_ 9 


02546 






095901 D 


DAC 


15,0000 000.000(5) 










02547 00015 




09600 


DEND 


START 


00776 






LOAD SUBROUTINES 
















02576 16 03010 03468 








02588 49 


02700 






END OF PASS I I 
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09610* LP20-5B, SOLUTION PUNCH, 


LINEAR PROGRAMMING, NOV. 










09630 


DORG 


402 








00402 


09640M 


DS 


3 


00404 00003 






09650N 


DS 


if 


00408 00004 






O966OFORM 


DS 


2 


00410 00002 






09670S 


DS 


5 


00415 00005 






09680MPL2 


DS 


3 








00418 00003 


09690 


DS 


1 


00419 00001 


09700COUNT 




a 
j 


00422 00003 






09710ALPHA 


UAo 


80 


00425 00080 






09720 


DAC 


1 (a) 


00585 00001 




09730FUN 


DAC 


14, FUNCTIONAL = @ 


00587 00014 






09740HDNG1 


nA c 


15, BASIC SOLUTIONIS 


00615 00015 


09750HDNG2 


UAV, 


33,10 CJ 


LEVEL (S> 
00645 00033 


09760HDN63 


DAC 


33,10 CJ 


SHADOW PRICES <a 






00711 00033 


09770BLANKS 


DAS 


80 


00777 00080 


09780 


DAC 


1,(2 


00937 00001 




097901 TER 


DC 


3,001 


00940 00003 




09800START 


RNCD 


BLANKS-1 


009^2 36 00776 00500 






098 10 


RNCD 


BLANKS+79 


00954 36 00856 00500 




09820 


WACD 


BLANKS 


00966 39 00777 00400 






09830 


TR 


ALPHA-1, BLANKS-1 


00978 31 00424 00776 


09840 


TF 


ALPHA+24.FUN+24 


00990 26 00449 0061 1 




09850 


TF 


FUNCT+28.S 


01002 26 01054 00415 




09860 


A 


FUNCT+27.MPL2 


01014 21 01053 00418 




09870FUNCT 


BTFS 


FLTF IX, 99999 


01026 16 03091 01049 
OIO38 49 03060 00000 
01045 00005 01834 






: j6 . 

01050 00005 99999 



09880 


TF 


ALPHA+46, OUTPUT 


01056 26 


00471 02721 


09890 


BT 


FIX1T, ITER 


01068 27 


02 974 00940 


09900 


AM 


ITER, 1, 10 


01080 11 


00940 000S1 


09910 


WACD 


ALPHA 


01092 39 


00425 00400 


09920 


TR 


ALPHA-1, BLANKS-1 


01104 31 


00424 00776 


09930 


WACD 


BLANKS 


01116 39 


00777 00400 


09940 


TF 


ALPHA+26.HDNG1+26 


01128 26 


00451 00641 


09950 


BT 


FIXIT, 1 TER 


01140 27 


02974 00940 


09960 


AM 


1 TER, 1,10 


01152 11 


00940 OOODl 


09970 


WACD 


ALPHA 


01164 39 


00425 00400 


09980 


TR 


ALPHA-1 , BLANKS-1 


01176 31 


00424 OO776 


09990 


WACD 


BLANKS 


01188 39 


00777 00400 


10000 


TF 


ALPHA+62,HDNG2+62 


01200 26 00487 00707 


10010 


BT 


Fl X 1 T, 1 TER 


01212 27 


02974 00940 


10020 


AM 


1 TER, 1,10 


01224 11 


00940 000(51 


10030 


WACD 


ALPHA 


01236 39 


00425 00400 


10040 


TR 


ALPHA-1, BLANKS-1 


01248 31 


00424 00776 


10050 


WACD 


BLANKS 


01260 39 


00777 00400 


10060 


TF 


COUNT, M 


01272 26 


00422 00404 


10070 


TF 


BT1+11,S 


01284 26 


01355 00415 


10080 


TF 


BT2+28,BT1+11 


01296 26 01396 01355 


10090 


A 


BT2+27.MPL2 


01308 21 


01395 00418 


10100L00P1 


AM 


BTI+11,10,10 


01320 11 


01355 00010 


101 10 


AM 


BT2+28, 10, 10 


01332 11 


01396 00010 


10120BT1 


BT 


FIX 1 D, 99999 


01344 27 


02758 99999 


10130 


TF 


ALPHA+26, OUTPUT 


01356 26 00451 02721 


10140BT2 


BTFS 


FLTF IX, 99999 


01368 16 
OI38O 49 


03091 01391 

030&0 00000 









01387 


00005 


01834 








01392 


00005 


99999 


10150 


TF 


ALPHA+56, OUTPUT 














01398 


26 


00481 


02721 


10160 


BT 


FIXIT.ITER 










01410 


27 


02974 


00940 


10170 


AM 


1 TER, 1 , 10 












01422 


1 1 


00940 


000D1 


10180 


WACD 


ALPHA 
















01434 


39 


00425 


00400 


10190 


TR 


ALPHA-1 , BLANKS-1 














01446 


31 


00424 


00776 


10200 


SM 


COUNT, 1 , 10 












01458 


12 


00422 


OOOOl 


10210 


BP 


L00P1 
















01470 


46 


01320 


01 100 


10220 


WACD 


BLANKS 
















01482 


39 


00777 


00400 


10230 


TF 


A LPHA+62 , HDNG 3+62 






00487 






01494 


26 


00773 


1 0240 


BT 


FIX IT, 1 TER 












01506 


27 


02974 


00940 


10250 


AM 


ITER, 1,10 








OOOOl 




01518 


1 1 


00940 


10260 


WACO 


ALPHA 
















01530 


39 


00425 


00400 


10270 


TR 


ALPHA-1, BLANKS-1 












01542 


31 


00424 


00776 


10280 


WACD 


BLANKS 
















01554 


39 


00777 


00400 


10290 


TF 


COUNT, N 












01566 


26 


00422 


00408 


10300 


TF 


BT3+28.S 


01578 






00415 






26 


01690 


1031 


A 


BT3+27.MPL2 






01689 


00418 






01590 


2 1 


10320 


A 


BT3+27.MPL2 






01689 






01602 


21 


00418 


10330 


TF 


L00P2+1 1 .BT3+28 






01649 


01 690 




01614 


26 


10340 


SM 


L00P2+11, 10, 10 








ooolo 




01626 


12 


01649 


10350L00P2 


BT 


Fl X 1 D, 99999 


01 638 




02758 








27 


99999 


10360 


TF 


ALPHA+26, OUTPUT 












01650 


26 


00451 


02721 


10370BT3 


BTFS 


FLTF1X, 99999 








01685 






01662 


16 


03091 








01674 


49 


03060 


00000 








01681 


00005 


S1834 








01686 


00005 


99999 


10380 


TF 


ALPHA+56, OUTPUT 












01692 


26 


00481 


02721 


10390 


BT 


FIXIT, ITER 
















01704 


27 


02974 


00940 



© 



'07. 



10400 


AM 


ITER, 1, 10 












01716 11 


00940 


00001 


10410 


WACD 


ALPHA 


01728 39 


00425 


00400 


10420 


TR 


ALPHA-1 , BLANKS-1 












01740 31 


00424 


00776 


10430 


A 


L00P2+10.MPL2 










01752 21 


01648 


00418 


1 0440 


A 


RT3+97 MPL? 




OI689 








01764 21 


00418 


10450 


SM 


COUNT, 1, 10 






00051 




01776 12 


00422 


10460 


BP 


LO0P2 














01788 46 01638 


01 100 


10470 


RNCD 















01800 36 


00000 


O0500 


10480 


B 

















01812 49 


00000 


00000 


10490* 










10500* SUBROUTINE FOR PREPARING DATA 


FOR ALPHAMERI CAL 


PRINTING OR 


10510* PUNCHING 


INTERNAL FORMAT IS 


NEW SPS. 






10520* 












10530ARG 


DS 


10 














01833 00010 




1 054OFLTF 1 X 


CF 


ARG-9 


01834 33 


01824 








00000 


10550 


TF 


OUTPUT, SEVENS 












01846 26 


02721 


02733 


10560 


CF 


OUTPUT-9 


01858 33 


02712 


00000 


10570 


TF 


GUTPUT-IO.DCMAL 










01870 26 


02711 


02743 


10580 


TFM 


OUT PUT- 19, 0,9 






00O00 




01882 16 


02702 


10590 


TFM 


SIGN, 0, 10 






oooOo 




01894 16 


02745 


10600 


BNF 


JUMP,ARG-2 












01 906 44 


01942 


01831 


10610 


TDM 


SIGN-1, 2, 11 






00002 






01918 15 


02744 


10620 


CF 


ARG-2 


01930 33 


01831 


00000 


1O630JUMP 


CM 


ARG,99, 1011 




01833 


00099 






01942 14 


10640 


BE 


WRALPH 


01954 46 


02278 


01200 


10650 


CM 


ARG.O, 10 










01966 14 


01833 


00000 


10660 


BNP 


DEC 1 ML 


OI978 47 


02324 


01100 


10670 


CM 


ARG.4, 10 










01990 14 


01833 


00004 


10680 


BH 


LARGE 


02002 46 


02404 


01100 



10690 


TFM 


TRNMT+1 1, ARG-9 


10700 


TFM 


*+42,0UTPUT-10 


10710 


S 


*+30,ARG 


10720 


S 


*+l8,ARG 


1073OTRNMT 


TO 


99999,99999 


1071*0 


AM 


TRNMT+1 1,1, TO 


10750 


AM 


TRNMT+6,2, 10 


10760 


CM 


TRNMT+6, OUTPUT- 12 


10770 


BNH 


TRNMT 


10780 


TF 


WRI TE+2 3, TRNMT+1 1 


10790 


TFM 


EXPNT2 , 5,10 


10800 


s v 


EXPNT2.ARG 


10810 


TFM 


*+47, SEVENS 


10820 


S 


*+35,EXPNT2 


10830 


S 


*+23,EXPNT2 


10840 


A 


OUTPUT-12, 99999 


10850WR)TE 


TFM 


*+l8,OUTPUT-8 


10860 


TO 


OUTPUT-8,0 


10870 


AM 


WRI TE+23, 1,10 


10880 


AM 


WRITE+18,2, 10 


10890 


CM 


WRI TE+ 18, OUTPUT 


10900 


BNH 


WRITE+12 


10910WRALPH 


BD 


SETZR0,0UTPUT-18 


10920 


B 


SETSIG 


10930 


DORG 


*-3 


10940SETZR0 


TDM 


OUTPUT, 


10950 


TF 


OUTPUT-20, S 1 GN 


10960 


BB 





02014 16 02073 01824 
02026 16 02068 02711 
02038 22 02068 01833 
02050 22 02068 01833 
02062 25 99999 99999 
02074 11 02073 OOOOl 
02086 11 02068 00002 
02098 14 02068 52709 
02110 47 02062 01100 
02122 26 02229 02073 
02134 16 02747 OOOI55 
02146 22 02747 01833 
02158 16 02205 02733 
02170 22 02205 02747 
02182 22 02205 02747 
02194 21 02709 99999 
02206 16 02224 52713 
02218 25 02713 00000 
02230 11 02229 OOOOl 
02242 11 02224 00052 
02254 14 02224 02721 
02266 47 02218 01100 
02278 43 02298 02703 
02290 49 02610 00000 
02298 

02298 15 02721 00000 

02310 26 02701 02745 
02322 42 00000 00000 



a 



109. 



10970 


DORG 


*-9 


02324 








1 098ODEC 1 ML 


CM 


ARG ,4, 101 1 














02324 


14 


01833 


00004 


10990 


BNH 


LARGE 
















02336 


47 


02404 


01 100 


11000 


TFM 


WRI TE+23, ARG-9 














02348 


16 


02229 


01824 


11010 


TFM 


WR 1 TE+ 1 8 , OUTPUT-8 














02360 


16 


02224 


02713 


1 1020 


s 


WRITE+18.ARG 














02372 


22 


02224 


01833 


11030 


S 


WRI TE+18.ARG 
















02384 


22 


02224 


01833 


1 1040 


B 


WRI TE+12 
















02396 


49 


02218 


00000 


11050 


DORG 


*-3 


02404 








1 1060LARGE 


TF 


OUTPUT- 1 7 , SEVENS-7 














02404 


26 


02704 


02726 


11070 


BNF 


JUMP2 ,ARG 












02416 


44 


02464 


01833 


11080 


TFM 


OUTPUT-20 ,20, 10 














02428 


16 


O27OI 


00020 


11090 


CF 


ARG 














02440 


33 


01833 


00000 


11100 


CF 


OUTPUT-19 
















02452 


33 


02702 


00000 


11110JUMP2 


TD 


0UTPUT-16,ARG 














02464 


25 


02705 


01833 


11120 


TD 


0UTPUT-18.ARG-1 














02476 


25 


02703 


01832 


1 1130 


CF 


OUTPUT-18 














02488 


33 


02703 


00000 


11140 


TF 


OUTPUT-12, SIGN 














02500 


26 


02709 


02745 


11150 


CF 


OUT PUT- 13 
















02512 


33 


02708 


00000 


11160 


TFM 


WR+ 1 1 , ARG-9 














02524 


16 


02559 


01824 


1 1170 


TFM 


WR+6, OUTPUT-8 








02713 




02536 


16 


02554 


11180WR 


TD 


99999,99999 


02548 












25 


99999 


99999 


1 1190 


AM 


WR+11, 1, 10 








00001 




02560 


11 


02559 


1 1200 


AM 


WR+6, 2, 10 














02572 


1 1 


02554 


00002 


11210 


CM 


WR+6, OUTPUT 














02584 


14 


02554 


02721 


11220 


BNH 


WR 
















02596 


47 


02548 


01 100 


11230 


BB 


















02608 


42 


00000 


00000 



110. 



1 1240 


DORG 


J 




0261 


1 1250SETSIG 


TFM 


SFTS+11 DIITPIIT- 


1 A 
1 




1 1260SETS 






02510 lb 02633 02705 


BD 


SET OUTPUT-lA 




1 1270 








UZOZZ H3 UZopH UZ/U;> 


AM 


SETS+1 1,2,10 




1 1280 








UiDjH 1 1 UZOjj UUUUZ 


B 


SETS 












02646 49 02622 00000 


1 1290 


DORG 


*-3 














1 1300SET 


TF 


*+30, SETS+ 1 1 




11310 


SM 






02654 26 02684 02633 


*+l8,2, 10 




11320 








02666 12 o?fiRii onnfi9 


TF 


ggggg^SlGN 














02678 26 99999 02745 


1 1330 


BB 






1 1340 








D^Aqd L.9 nnnnn nnnnn 


OORG 


*_g 




no £0.0 
uzoyz 


1 1 350 


DAS 


14 














uzoyj uuum 

Uz/Zl UUUU2 


1 1 3600UTPUT 


OS 


2 




11370 


DAC 


1 ,<f» 






11380SEVENS 








Uz/z3 UUUUl 


DC 


10,7070707070 




02733 00010 


11390DCMAL 


DC 


10,0000000003 














02743 00010 


11400S IGN 


OS 


2 




1 1«+10EXPNT2 








UZ/H5 uuuuz 


DS 


2 




11420* 








02747 00002 








11430* SUBROUTINE FOR PREPARING 


1 D/CJ 


ELEMENTS FOR PRINTING. 


1 1440* 










11450 


DS 


10 






11460FIXID 








uz/p/ UUOIU 


TR 


0UTPUT-27, 1 D-1 




11470 






02758 31 02694 02940 


CF 


FIX I D-10" 




11480 








02770 33 02748 00000 


TD 


OUTPUT-26, F 1 X 1 D- 


-10 




1 1490 






02782 25 02695 02748 


TD 


0UTPUT-24.FI XI D- 


•9 










02794 25 02697 02749 


11500 


TD 


OUTPUT-22,FIXID- 


■8 










02806 25 02699 02750 


11510 


TD 


0UTPUT-20,FI XI D- 


•7 










02818 25 02701 02751 
02830 25 02709 02752 


11520 


TD 


0UTPUT-12.FIXID- 


■6 



11c 2n 


Tn 
1 u 


niiTDiiT in rivin c 

UU 1 ru 1 ~IU, r 1 A 1 D—p 














02842 


25 02711 


02753 


1 1540 


TD 


0UTPUT-8,F 1 X 1 D-4 












02854 


25 02713 


02754 


11550 


TD 


0UTPUT-4,FI XI D-3 












02866 


25 02717 


02755 


11560 


TD 


0UTPUT-2,FIXI D-2 












02878 


25 02719 


02756 


1 1570 


TD 


OUTPUT, FIXID-1 










02890 


25 02721 


02757 


11580 


8NF 


*+36,FIXID-1 












02902 


44 02938 


02757 


11590 


TFM 


OUTPUT-14,20, 10 














02914 


16 02707 


00020 


11600 


CF 


0UTPUT-15 














02926 


33 02 706 


00000 


11610 


BB 
















02938 


42 00000 


00000 


11620 


DORG 


*-9 














02940 






1 16301 D 


DAC 


lb,UUUU UUU.UUU(5) 














02941 


00015 




11640* 










11650* SUBR0UTI 


kic Tn ci nAT crnncMrr 
Nt IU r LUA I btyUfcNut 


Lit ILID CD 






11660* 












11670 


OS 


5 














uz y/z 


UUUU3 




11680F1XIT 


TF 


UU I , VINo 








11690 






02974 


*i £ n one 
ZD U3U3 3 


03059 


CF 


r | v | T— 3 
r I A I I "y 














02900 


33 02971 


00000 


11700 


TD 


OUT CIYIT 1 
UU 1 , r 1 A 1 1 — 1 














02990 


25 03053 


02973 


1 1710 


TD 


l\l IT O CIVIT 

UU 1 — 2 , r 1 X 1 1—2 














03010 


25 03051 


02972 


11720 


TO 


OUT-4, F1 X 1 T-3 














03022 


25 03049 


02971 


11730 


TF 


ALPHA+158,OUT 












03034 


26 00583 


03053 


1 1740 


BB 
















03046 


42 00000 


00000 


11750 


DORG 


*-9 












U pUHO 






1 1760 


DAS 


2 














03049 


00002 




117700UT 


DS 


2 














03053 


00002 




11780SEVNS 


DC 


6,707070 














03059 


00006 




11790 


DEND 


START 












00942 






LOAD SUBROUTINES 
















03060 


16 03494 


03952 








03072 


49 03184 






e 



m «\ ff> w 



co o la oo ca 

O — <- — *- 



O O O 

00 — • \0 

2 3 :S 

o o o 

o o o 





CO 


o 


o 




^ o 


o 


o 




z la 


LA 


ca 




<s 


o 


O 




_J o 


o 


O 












m o 


o 


CM 




a: ^ 


o 


v*> 




<•£ 


r-~ 


00 


o 


UJ O 


o 


o 


oo 


OjO 


o 


o 


o 


Oo 






o 


O vO 


vO 


r~- 


o 


O o 


CA 


J- 




1— 

— CM 




vO 


CM 


00 00 oo 


CA 


o 


v£> 




r-^ 


00 


o 


Oq-O 


o 


o 


o 


O < O 


o 


o 




O 







— ca 



rr\ la la rr> 



— 00 i- 



* * -it 
o o o o 

O «— CM CA 

00 00 00 00 



CO 00 00 CO CO 00 



a\ ca cr\ ca 



CA CA CA CA 



00' CA O *- 



a ix id 8SZzo 
indino* izzzo 
Zdwnr +79+/30 



31-1 MM 

*ia 
lONnj 

39NQH 
31dW 



90330 
39910 
93010 
S+?900 
81*700 



SNA3S 
31NdX3 

13S 
3DUV1 
1WNU1 
3d00T 

lavis 

IDNOH 

S 



650*0 
* L*lU0 
+75930 
+70+730 
39030 
8*910 
3+7600 
51900 
51+700 



ino 


*50*0 


NO 1 S 


5+7^30 


Si3S 


33930 


1WI330* 


+73*30 


dwnr 


3+7610 


318 


89*10 


mi 


O+76OO 


Nfld 


Z8500 


wyod 


01+700 



1IXU +7^630 
-1VW30 *+7^30 
DIS13S* 01930 
0HZi3S* 86330 
XIJ1U* +7*810 
119 +7+7*10 
SXNV18* LLLOO 
VHdIV 53+700 
N 80+700 



a I 1+7630 
SN3A3S* **Z30 
W 8+7530 
HdlVWte 8^330 
DUV **810 



IdOOl 
*0N0H 
1NDQD 
W 



03*10 
t LZOO 
33+700 
+7O+7OO 



I ISSVd JO QN3 



111;. 



1 2070 


RCTY 
















00818 


34 


00000 


00102 


12080 


RCTY 


















OO83O 


34 


00000 


00102 


12090 


RCTY 


















00842 


34 


00000 


00102 


i?i nn 

1 c. \ uu 


3 


GO 
















00854 


49 


00886 


00000 


12110 


DORG 


*_a 

j 
















00862 










WACO 


BLANKS 
















00862 




0062 1 


00400 


1 ? 1 an 


WACD 


Rl ANKS 














00874 


J? 


0062 1 


00400 


12 l^tOGO 


SF 


M-2 
















00886 


32 


00402 


00000 


12150 


SF 


M+2 














OO898 


32 


00406 


00000 


12160 


TF 


MPL2.M 




26 








00910 


00418 


00404 


12170 


AM 


MPL2,2,10 








00002 




00922 


11 


00418 


12180 


TF 


NPL2.N 














00934 


26 


00422 


00408 


12190 


AM 


NPL2,2, 10 








00002 




00946 


11 


00422 


12200 


TFM 


^ADD,W 
















00958 


16 


00427 04809 


12210 


A 


1NADD-1.MPL2 














00970 


2 1 


00426 


00418 


12220 


TFM 


NPRINT,5,9 














00982 


16 


00435 


00D05 


12230 


MM 


MPL2, 50,10 












00994 


13 


00418 00050 


12240 


SF 


PROD-4 














01006 


32 


00095 


00000 


12250 


TF 


MP2X5.PROO 




26 


00446 






01018 


00099 


12260LOOP3 


TF 


ROWADD, I NADD 




26 


00432 


00427 




01030 


12270 


TF 


C0UNT2 , MPL2 








00418 






01042 


26 


00441 


12290* CLASSIFY 


ELEMENT, FLOAT, AND 


TRANSMIT 


TO 


CARD J MAGE . 


12 300* 




CARD-1 , BLANKS-1 










12310L00P2 


TR 












01054 


31 


00458 


00620 


12320 


TF 


C0UNT1 ,NPRI NT 












01066 


26 


004 3$ 


00435 


12330 


TFM 


TRAN+6, CARD+26 












OIO78 


16 


01284 00485 


12 340 


TF 


TFLOAT+28 , ROWADD 




26 




00432 




01090 


01190 


12350 


AM 


ITER+11,1,10 








0000 1 




01102 


11 


01125 



12360ITER BTM FIXIT.0,9 

01114 17 02768 00000 

12370L00P1 TF CLASS+1 1 , TFLOAT+28 

01126 26 01161 01 190 

12380 SM CLASS+1 1,1,10 

01138 12 01161 00051 
12390CLASS BNF I DEN1 , 99999, ,FI ELD ADDRESS-1 . IS FIELDAFLT. PT. NO. 

01150 44 01254 99999 

12400TFLOAT TFLS TEMP, 99999 

01162 16 02905 01185 

01174 49 02854 00000 

01181 00005 00456 

01186 00005 99999 
12410 CM TEMP, 99, 1011, IS FIELD A FLOATING POINT ZERO. 









01192 


14 


00456 


00099 


12420 


BE 


SKI P 














01204 


46 


01290 


01200 


12430BFL0AT 


BTFS 


FLTF 1 X , TEMP 








01233 








01216 


16 


02905 








01228 


49 02874 


OOOOO 








01235 


00005 


01628 








01240 


00005 


00456 


12440 


B 


TRAN 
















01246 


49 


01278 


OOOOO 


12450 


DORG 


*-3 


01254 








124601 DEN 1 


TF 


IDEN2+11, TFLOAT+28 














01254 


26 


01277 


01190 


124701 DEN2 


BT 


FIXID.99999 














01266 


27 


02552 


99999 


12480TRAN 


TF 


99999, OUTPUT 














01278 


26 


99999 


02515 


12490SKI P 


A 


TFLOAT+27 fMPL2 








00418 








01290 


21 


01 189 


12500 


AM 


TRAN+6, 30, 10 








00030 






01302 


11 


01284 


12510 


SM 


COUNT 1,1, 10 












01 314 


12 


00438 


00001 


12520 


BP 


L00P1 






01126 








01326 


46 


01100 


12530* 














12540* PRI 


NT OR 


PUNCH ONE LINE OF 


FIVE ELEMENTS. 






12550* 














12560 


BNC3 


*+44 






01382 






01338 47 


00300 


12570 


WATY 


CARD 














OI35O 


39 


00459 


00100 


12580 


RCTY 


















01362 


34 


OOOOO 


00102 


12590 


B 


*+20 
















01374 49 


01394 


OOOOO 


12600 


DORG 


*-3 


01382 








12610 


WACD 


CARD 
















01382 


39 


00459 


00400 


12620 


AM 


ROWADD, 10, 10 














01394 


11 


00432 


ooolo 



© 



116. 



12630 


SM 


C0UNT2 ,1,10 














01406 


12 


00441 


OOOQl 


12640 


BP 


L00P2 
















01418 


46 


01 054 


01 100 


12650 


BNC3 


*+44 
















01430 


47 


01474 


00300 


12660 


RCTY 


















01442 


34 


00000 


001 02 


12670 


RCTY 
















01454 


34 


00000 


00102 


12680 


B 


STOP 














01466 


49 


01498 


00000 


12690 


DORG 


*-3 


01474 








12700 


WACD 


BLANKS 
















01474 


39 


00621 


00400 


12710 


WACD 


BLANKS 
















01486 


39 


00621 


00400 


12720STOP 


A 


INADD.MP2X5 












01498 


21 


00427 


00446 


12730 


S 


NPL2 ,NPRI NT 














01510 


22 


00422 


00435 


127^0 


C 


NPL2.NPRI NT 
















01522 


24 


00422 


00435 


12750 


BNP 


END 
















01534 


47 


01554 


01100 


12760 


B 


L00P3 
















01546 


49 


01030 


00000 


12770 


DORG 


*-3 


01554 








12780END 


TF 


NPRI NT, NPL2 












01554 


26 


00435 


00422 


12790 


TFM 


STOP+1,49, 10 












01566 


16 


01499 


00049 


12800 


TFM 


ST0P+6, FINISH 














01578 


16 


01504 


01598 


12810 


B 


L00P3 
















01590 


49 


01030 


00000 


12820 


DORG 


*-3 


01598 








12830F1 NISH 


RNCD 

















01598 


36 


00000 


00500 


12840 


B 



















01610 


49 


00000 


00000 


12850 


DORG 


*-3 


01618 








12860* 















12870* SUBROUTINE FOR PREPARING DATA FOR ALPHAMER I CAL PRINTING OR 
12880* PUNCHING. INTERNAL FORMAT IS NEW SPS. 
12890* 

12900ARG DS 10 

01627 00010 

12910FLTFIX CF ARG-9 

01628 33 01618 00000 



© 



117. 



12920 


TF 


OUTPUT, SEVENS 














01640 


26 


02515 


02527 


12930 


CF 


OUTPUT-9 






no cnA 








n 1 Aco 
u 1 OOL 


55 


nnnnn 
uuuuu 


12940 


TF 


miTDMT in nrMAl 
UU 1 r U 1 — 1 U , UUnAL 












niAAL. 


9 A 
L 


no cn£ 


no ^ 37 

UZ5 31 


12950 


TFM 


OUTPUT-19,0,9 








nnfinn 




n 1 A 7 a 

U 1 D/D 


1 




12960 


TFM 

1 r n 














ni Aftft 
u 1 000 


1 A 


no C 2Q 


nnnnn 
uuuuu 


12970 


d Kir 
KNr 


JUMP.ARG-2 












ni 7nn 

U 1 / UU 




n 1 7 ?A 
u 1 / 50 


ni Ao*; 


12980 


1 Un 


c 1 r m_ 10 11 
b I bN— 1 , / , 1 1 








00002 




ni 7 1? 

U 1 / 1 L 


1 C 


no t; 38 


12990 


rc 


ARG-2 
















ni 7 oil 

u 1 / m 


55 


n 1 Ao c 
u 1 D/p 


nnnnn 
uuuuu 


13000JUMP 


ru 

Lrl 


ARG.99, 1011 








nnnQQ 








ni 7 aA 

Ul /JO 


1k 
14 


ni Ao 7 

U 1 OL 1 


13010 


Dt 


WRALPH 














n 1 7J1 Q 

ui 740 


1, c 
4o 


02072 


n i o nn 
u IZUU 


13020 


CM 


ARG,0, 10 












n 1 7 £Lr\ 
U 1 fOU 


1 !■ 
14 


n 1 Ao 7 

U 1 OL 1 


uuuuu 


13030 


BNP 


DEC 1 ML 














n 1 770 
U 1 III 


h.7 
4/ 


no 1 ifl 
uz 1 1 


m 1 nn 
u 1 1 UU 


13040 


CM 


ARG,4, 10 








UUUU4 




n 1 7Qii 
u 1 /o4 


1/i 
14 


n 1 £0 7 

U 1 OL 1 


13050 


BH 


LARGE 






no 1 qQ 

ul 1 yo 








01796 


4D 


mi nn 
u 1 1 UU 


13060 


TFM 


TRNMT+11 , ARG-9 








fil Alft 
u 1 1 




n 1 RnP 
u 1 ouo 


1 A 
1 D 


n 1 RA7 
u 1 00/ 


13070 


TFM 


*+42 , OUTPUT— 10 












1 o20 


1 A 

lb 


n 1 Q£o 
U 1 OOL 


7^o c nc 
uOup 


13080 


S 


*+30,ARG 






n 1 Q£o 
U 100/ 


n 1 Ao 7 
U 1 OL 1 




1 032 


22 


13090 


c 


*+l8,ARG 












n 1 ftki± 

U 1 044 


9 

LL 


n 1 RAo 

U 1 OOL 


n 1 AO 7 

U 1 OL 1 


13100TRNMT 


Tn 
1 U 


99999,99999 














ni3t;A 


ZP 


qqqqq 


qqqqq 


131 10 


An 


TRNMT+11, 1, 10 








000O1 




01868 


1 1 
1 1 


01867 


13120 


AM 

An 


TRNMT+6,2, 10 








000u2 




01880 


1 1 


01862 


13130 


CM 


TRNMT+6,0UTPUT-12 








U2503 




01892 


14 


01862 


13140 


BNH 


TRNMT 














01904 


47 


01856 


01 100 


13150 


TF 


WRITE+2 3, TRNMT+11 












01916 


26 


02023 


01867 


1 3160 


TFM 


EXPNT2,5, 10 








00005 




01928 


16 


02541 


13170 


S 


EXPNT2 ,ARG 












01940 


22 


02541 


01627 


13180 


TFM 


*+47, SEVENS 








02527 




01952 


16 


01999 


13190 


S 


*+35,EXPNT2 












01964 


22 


01999 


02541 



i ao nn 


b 


^4-/ i , t a r IN 1 / 
















u i y/o 


22 


01999 


02541 


1 32 10 


A 


UU 1 PUT- 12 , 33333 
















n 1 nQQ 

u 1 yoo 


z 1 


no CH5 
UZpU3 


n n n n n 

99999 


1 3220WR 1 TE 


TFM 


•A- 1 1 O ftl 1TOI IT O 

*+lo, OUTPUT— 












02000 


16 


02018 


O2507 


1 3230 


TD 


0UTPUT-8, 
















02012 


25 


02507 


00000 


1 3240 


AM 


WRI TE+23f 1,10 








_ 

00001 






02024 


1 1 


02023 


13250 


AM 


WRI TE+18,2, 10 








00002 




02036 


1 1 


02018 


1 3260 


CM 


WD 1 TCxlD nilTDIIT 

WK 1 1 L+ 1 , UU 1 r U 1 












no nkft 

UzU*tO 


Ik 


no n 1 ft 
uzu 1 


T10 c 1 c 
uzp )p 


1 ao ir\ 
1 3z/U 


DklU 

D Pin 


WR 1 T F 0. 1 9 
wr\ 1 1 Lt 1 z 
















02060 


47 


02012 


01100 


1 aoftnwRAi ph 


B0 


C.FT7RD OUTPUT— 1ft 
















02072 


ka 


02092 


02497 


1 39 qO 


Q 


SETS 1 G 














02084 


49 


02404 


00000 




D0RG 


*-3 

p 


02092 








1 3310SETZRO 


TDM 


OUTPUT, 












02092 


15 


02515 


00000 


1 3320 


TF 


0UTPUT-20,SIGN 












02 104 


26 


02495 


02539 


1 3330 
• pp P*-* 


BB 


















02116 


42 


00000 


00000 


1 33iiO 


DORG 




09 1 1 ft 








1 a 9 c nnc r 1 Ml 


CM 


hoc k inii 

MKu , H f 1 U 1 1 








nonfiE 




02118 


Ik 


01 A9 7 
u 1 oz / 


1 33oO 


P. KIM 


1 ARftF 






02198 








02 1 30 


47 


01 100 


1 3370 


TFM 
1 r rl 


U/D 1 TF-i_0 a APT— O 








ni Aift 






HO 1k9 


1 




13380 


1 r M 


WPITF_i_lQ nilTPIIT— ft 

wk 1 1 1+ 1 , uu 1 ru 1 — 








D2507 




no 1 ck 

1 pH 


1 


09fit 8 


1 3390 


c 

b 


WP ITFj-IR ART; 
WK 1 lt+lo f AKu 








01627 






09 1 AA 
uz 1 00 




02018 


1 afinn 

1 3 t rUU 


c 


WR 1 TFj- 1ft ARf; 








01627 






02178 


22 


02018 


1 3410 


B 


WRI TE+12 














02190 


49 


02012 


00000 


13^20 


.DORG 


*-3 


02198 


















13430LARGE 


TF 


OUTPUT-17,SEVENS-7 




26 


02498 






02198 


02520 


13440 


BNF 


JUMP2.ARG 












02210 


44 


02258 


01627 


13450 


TFM 


OUTPUT-20,20, 10 








00020 






02222 


16 


02495 


13460 


CF 


ARG 






01627 








02234 


33 


00000 



© 



119. 



13470 


CF 


0UTPUT-19 














02246 


33 


02496 


00000 


1 3480JUMP2 


TD 


ni iTni it < z' An/"* 

OUTPUT— lb, ARG 








HI A9 7 




no ocR 


c 
zp 




1 3490 


Tn 
1 U 


nilTDIIT 1 Q ADT 1 

UU 1 r U 1 — 1 , AKb— 1 








01626 






02270 


c 
zp 




1 3500 


tr 


C\\ ITDI IT—1 ft 

uu 1 r u 1 — 1 














noofto 


a a 
33 


02497 


00000 


13510 


Tr 
1 r 


OUTPUT— 10 c.|£M 














uzzyn 


■9 A 

ZD 


nocna 
uzpup 


02539 


1 ion 


TF 

ur 


fl! ITPI IT— 1 a 
UU 1 ru * 1 P 














n? anA 

UZ jUO 


33 


02502 


00000 


1 3c an 
1 3P3U 


TFM 


WR4. 1 1 ARH— Q 








731 618 






02318 


16 


02 3 1 ! 3 
p./ j 


1 ackn 

1 PPHU 


TFM 


WR+6 0UTPUT-8 








Q2507 




0? 330 


16 


02348 


I pppuwr\ 


TD 


qqqqq qqqqq 














02 342 


25 


99999 


99999 


1 acAn 


AM 


WR+11 1 10 

ni\T 1 1 f if iu 








000O1 




0? 3*;u 

UZ JP*T 


1 \ 


02353 


1 aC7n 


AM 








02348 


00002 




02366 


1 1 


13580 


urn 


up . £ ni ITDI |T 








02515 




0? 378 
uz p/ 


14 


02348 


10c on 


BNH 


WR 






02342 








no aqn 
uz ppu 




01 100 


1 3600 


DD 
















UZHUZ 


U9 
"+Z 


00000 


00000 


1 3610 


nnp c 
UUKu 
















no knk 








1 3&20SETS I G 


TCM 

1 r n 


C C TC j- 11 HIITDI IT— 1 C 

oL 10+ 1 I ,UUI rUl- ID 








^9kqq 
uzny y 




no knk 
uztut 


1 A 
1 


UZHZ / 


1 363OSETS 


BD 


CCT nilTDIIT 1 C 

bt T , UU 1 rU 1 — ] 






no kk ft 


nokqq 




no )■ 1 
Uzf 1 


k a 


1 3640 


AM 


SETS+1 1,2,10 








nnnfi9 
uuuuz 




no liiQ 


1 1 


noko 7 
uztz / 


1 3650 


D 


C FTC 
Ot 1 b 














no ii Ji n 

UZH-fU 


kQ 


nok 1 A 
UZH 1 


nnnnn 


1 3oDU 


nnp c 

UUKu 


*_a 
5 














02448 








1 po/Ubt 1 


TF 

1 r 


TJU, jC Iot 1 f 












02448 


26 


02478 


02427 


1 3680 


SM 


*+ 1 8 , 2 , 1 








000D2 




02460 


12 


02478 


13690 


TF 


99999, SIGN 














02472 


26 


99999 


02539 


13700 


BB 


















02484 


42 


00000 


00000 


13710 


DORG 


*-9 














02486 








13720 


DAS 


14 














02487 


00014 




137300UTPUT 


DS 


2 
















02515 


00002 




13740 


DAC 


1 ,<3> 
















02517 


00001 





© 



13750SEVENS DC 

13760DCMAL DC 

13770SIGN DS 

13780EXPNT2 DS 



10,7070707070 

10,0000000003 

2 

2 



02527 00010 

02537 00010 
02539 00002 
02541 00002 



13790* 

13»00* SUBROUTINE FOR PREPARING ID/CJ ELEMENTS FOR PRINTING. 
13810* 

10 



13820 



DS 









0255 1 


00010 




13830F1 X 


1 D TR 


OUTPUT-27, 1 D-1 










13840 






02552 


3 1 


02488 


02734 


CF 


Fl X 1 D-10 








13850 






02564 


33 


02542 


00000 


TD 


0UTPUT-26,FIXI D-10 










13860 




O2576 


25 


02489 02542 


TD 


0UTPUT-24,FIXID-9 










13870 






02588 


25 


02491 


02543 


TD 


0UTPUT-22.FIXID-8 








13880 






02600 


25 


02493 


02544 


TD 


0UTPUT-20,FI XI D-7 










13890 






02612 


25 


02495 


02545 


TD 


0UTPUT-12.fi XID-6 














02624 


25 


02503 


02546 


13900 


TD 


0UTPUT-10.FIXI D-5 














02636 


25 


02505 


02547 


13910 


TD 


0UTPUT-8.FIXID-4 
















02648 


25 


02507 


02548 


13920 


TD 


0UTPUT-4.FIXID-3 














02660 


25 


0251 1 


02549 


13930 


TD 


0UTPUT-2,FI XI D-2 
















02672 


25 


02513 


02550 


139^0 


TD 


OUTPUT, FIXID-1 
















02684 


25 


02515 


02551 


13950 


BNF 


*+36,FIXID-1 
















02696 


44 


02732 


02551 


13960 


TFM 


0UTPUT-14.20, 10 
















02708 


16 


02501 


00020 


13970 


CF 


OUTPUT-15 














02720 


33 


02500 


00000 


13980 


BB 


















02732 


42 


00000 


00000 


13990 


DORG 


*-9 


02734 








140001 D 


DAC 


15,0000 000.000(3 














02735 


00015 




14010* 














14020* 


SUBROUTINE TO FLOAT SEQUENCE 


NUMBER. 








14030* 














14040 


DS 


3 
















02766 


00003 




14050FIX 


IT TF 


OUT.SEVNS 
















02768 


26 


02847 


02853 



14060 


CF 


FIXI T-3 




22 no7Ac 
55 uz/op 


nnnnn 
uuuuu 


14070 


TD 


ni it ctviT 1 
UU 1 , r 1 A 1 1—1 


flO "7 QO 

uz/yz 


c no ftii 1 
Zp UZO*t/ 


no *7 di 
UZ/b/ 


14080 


TD 


nl IT ri VI T O 

UU1 — 2 , r 1 X 1 1—2 












no finii 


or noSiiC 

Zp UZoHp 


no ~iC*(* 
uz / DO 


14090 


TD 


OUT-4 FIXI T-3 










02816 


25 02843 


02765 


14100 


TF 


CARD+158.0UT 












02828 


26 00617 


02847 


14110 


BB 




02840 


42 00000 


00000 


14120 


DORG 




02842 






14130 


DAS 


2 


02843 


00002 




141400UT 


DS 


2 


02847 


00002 




14150SEVNS 


DC 


6,707070 












02853 


00006 




14160 


DEND 


INIT 


00782 






LOAD SUBROUTINES 
















02854 


16 03308 


03766 








02866 


49 02998 











02874 


16 03308 


03798 








02886 


49 02998 






END OF PASS I I 
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123. 



14 1 70* 


LP20- 


7, MATRIX PUNCH 


FOR RESTART, LINEAR PROGRAMM 


14180* 


NOV 


.'l6, 1962. 








1ii 1 Q0* 

IH 1 ;?U 












14200 


DORG 


402 


00402 






14210M 


OS 


3 


00404 


00003 




14220N 


OS 


4 


00408 


00004 




14230F0RM 


DS 


2 


00410 










00002 




14240S 


OS 


«5 
j* 


Q0415 


00005 




14250MPL2 


DS 


3 


Q04t6 


00003 




44260 


DS 


64 


00482 


00064 




Ut270TEMP 


DS 


m 


00492 


00010 




14280PR0D 


DS 


2.0,99 


0QO99 


00020 




14,2 90W 


DS 


r ^4809 


04809 








00000 




14300* 












14310* PUNCH MATRIX IN FLOATING 


P0I NT FORMAT 


FOR RELOADING. 


14320* 












14330START 


TDM 


F0RM,O 










00494 


15 00410 


00000 


14340 


WNCD 


M-2 












00506 


38 00402 


00400 


14350 


TF 


TEMP., N 










005 18 


26 00492 


00408 


14360 


AM 


TEMP, 2, 10 












11 00492 


00002 


14370 


M 


TEMP.MPL2 












23 00492 


00418 


14380 


SF 


PRQD-4 












00554 


32 00095 


00000 


14390 


SM 


PROD, 2, 10 






00002 




00566 


12 00099 


14400 


TF 


8, S 












00578 


26 00661 


00415 


14410 


A 


CMP+10..PROD 












00590 


21 00660 


00099 


14420 


TF 


CMP2+11,CMP+11 












00602 


26 00745 


00661 


i 44 30 


SM 


CMP+1 1,7 0,10 










00614 


12 00661 


00070 


J4440 


TFM 


WRI T£+6,W-9 












00626 


16 007 16 


04800 


14450 


A 


WR1 TE+5 ,MPL2 


00638 


21 00715 


00418 


14460CMP 


CM 


WRI TE+6, 99999 


00650 


14 OO716 


99999 







12h. 



1W0 


BNP 


WRI TE 


OOooZ 4/ UU/ICJ UliUU 




TF 


T0IG+6.WRITE+6 








00674 26 00704 00716 


14490 


AM 


TDIG+6,71,10 


00686 11 00704 00071 




14500TDIG 


TD 


99999,400 






00698 25 99999 00400 


14510WRI TE 


WNCD 


99999 


00710 38 99999 00400 






14520 


AM 


WRITE+6,70,10 


00722 11 00716 00070 






14530CMP2 


CM 


WRI TE+6, 99999 


00734 14 00716 99999 








14540 


BNP 


CMP 








00746 47 00650 01100 


14550 


RNCD 











00758 36 00000 00500 


14560 


B 











00770 49 00000 00000 


14570 


DEND 


START 








00494 


END OF PASSI 1 







© 



125. 

14580* LP20-8, SOLUTION TEST, LINEAR PROGRAMMING, NOV. 16, 1962. 

14590* 



14600 


nnD r 


It no 














00402 






14610M 


DS 


3 














00404 


00003 




1462 ON 


OS 


If 














00408 


00004 




14630F0RM 


DS 


2 














00410 


00002 




1464 OS 


DS 


5 














00415 


00005 




14650MPL2 


DS 


3 














00418 


00003 




14660 


DS 


1 














00419 


00001 




14670W 


DS 


,4809 














04809 


00000 




14680PR0D 


DS 


20,99 












00099 


00020 




14690CNTCOL 


DS 


3 














00422 


00003 




14700CNTR0W 


DS 


3 














00425 


00003 




147101 NADD 


DS 


5 












00430 


00005 




14720 


DS 


56 














00486 


00056 




14730START 


TF 


CNTROW.M 










00488 


26 00425 


00404 


14740 


TFM 


SUB+28,W+20 










00500 


16 00576 


(54829 


14750 


TF 


SUB+23.S 














00512 


26 00571 


00415 


14760 


A 


SUB+22,MPL2 












00524 


21 00570 


00418 


14770 


AM 


SUB+23, 10, 10 










00536 


11 00571 


000 10 


14780SUB 


FS 


99999,99999 






50571 




00548 


16 01085 








00560 


49 01034 


00000 








00567 


00005 


99999 








00572 


00005 


99999 


14790 


AM 


SUB+23, 10, 10 










00578 


11 00571 


00010 


14800 


AM 


SUB+28, 10, 10 














00590 


11 00576 


ooolo 


14810 


SM 


CNTROW, 1, 10 












00602 


12 00425 


0000 1 


14820 


BP 


SUB 














00614 


46 00548 


01100 


14830 


TF 


CNTCOL.N 












00626 


26 00422 


00408 


14840 


TF 


INADD.S 














OO638 


26 00430 


00415 


14850 


A 


I NADD-1 ,MPL2 












00650 


21 0042 9 


00418 



126. 



1 if 860 


A 


1 NADD-1 ,MPL2 


\J\J\J\J4. £. 1 


0042 9 


004 18 


1 *fO /ULUur 


TC 
1 r 


CNTROW.M 


00A74 ?6 
\j *j \j / ^ 


00425 


00404 


14880 


TP 


FMUL+28, INADD 












00686 26 


OO870 


00430 


14890 


TP 


CMP+6, FMUL+28 












OO698 26 


00824 


OO870 


14900 


AM 


CMP+6, 10,10 










00710 11 


00824 


000T0 


14910 


TF 


FMUL+23.CMP+6 












00722 26 


00865 


00824 


14920 


TF 


FSUB+28, CMP+6 












00734 26 


00900 


00824 


14930 


TF 


FSUB+23, S 


00746 26 


00895 


00415 


14940 


A 


FSUB+22 ,MPL2 












00758 21 


00894 


00418 


14950 


AM 


FSUB+23, 10, 10 










00770 11 


00895 


ooolo 


14960 


TF 


CMP2+6, FMUL+28 










00782 26 


00800 


OO87O 


14Q70CMP2 


CM 


ggggg gg.1011. 


IS A(0,J)=ZER0. 




00099 








00794 14 


99999 


14980 


BE 


COLSTP 












00806 46 


00974 


01200 


14990CMP 


CM 


ggggg gg. 1011. 


IS A(l ,J)= ZERO. 




00099 






00818 14 


99999 


15000 


BE 


MOD 












00830 46 


00902 


01200 


15010FMUL 


r n 


99999,99999 










00842 16 
00854 49 


01085 
01054 


00865 
00000 








00861 00005 


qgggg 








00866 00005 


99999 




ps 






01085 


Q0895 




00872 16 








00884 49 01034 


00000 








00891 00005 


99999 








00896 00005 


99999 


15030MOD 


AM 


CMP+6, 10, 10 




00824 


ooolo 






00902 11 


15040 


AM 


FMUL+23, 10, 10 






ooolo 




00914 11 


00865 


15050 


AM 


FSUB+23, 10, 10 






000T0 




00926 11 


00895 


15060 


AM 


FSUB+28, 10, 10 






00070 




00938 11 


00900 


15070 


SM 


CNTROW, 1, 10 






0000 1 




00950 12 


00425 


15080 


BP 


CMP 












00962 46 


00818 


01100 


15O90C0LSTP 


A 


1 NADD-1, MPL2 










00974 21 


00429 


00418 



127. 



15100 SM CNTCOL.1,10 

15110 BP LOOP 

15120 RNCD 

15130 B 

15140 DEND START 
LOAD SUBROUTINES 

END OF PASS1 I 



00986 12 00422 OOOQl 
00998 46 00674 01100 
01010 36 00000 00500 
01022 49 00000 00000 
00488 

01034 16 01488 01946 
01046 49 01074 
01054 16 01488 02490 
01066 49 01074 



e 




128. 



15150* L 


.P20-9 


. PARAMETRIC SOLUTION, LINEAR PROGRAMMING, 




15160* 


NOV. 


16, 


1962. 








15170* 














15180 


DORG 


402 
















00402 








15190M 


DS 


3,, 


NUMBER OF RESTRAINING EQUATIONS 










00404 


00003 






15200N 


DS 


4,, 


NUMBER OF NONBASIC ACTIVITIES. 










00408 


00004 






15210F0RM 


DS 


2,, 


FORM OF INPUT - IMPLIES FLT. F 


>T., 1 IMPLIES 


DECIMAL 








00410 


00002 






15220S 


DS 


5,, 


REFERENCE ADDRESS FOR MATRIX, = 


W+10(M+3) . 










00415 


00005 




15230MPL2 


DS 


3..M+2 














00418 


00003 






15240 


DS 


1 
















00419 


00001 






15250W 


DS 


.4809. REFERENCE ADDRESS. 














04809 00000 






15260PR0D 


DS 


20.99. PRODUCT ADDRESS. 














00099 


00020 






152700UTPUT 


DS 


10 
















00429 


00010 






15280 


DC 


1,(3 
















00430 00001 






15290R 


DS 


10., 


MAX OR Ml N RATIO FOR DUAL OR S 


IMPLEX ALGORITHM. 








00440 


00010 






15300COLADR 


DS 


5,, 


ADDRESS OF D(K) . 














00445 


00005 






15310ROWADR 


DS 


5,, 


ADDRESS OF B(R) . 














00450 


00005 






15320ARKADR 


DS 


5,, 


ADDRESS OF A(R,K) . 














00455 


00005 






15330CNTC0L 


DS 


3,, 


COLUMN COUNTER. 














00458 


00003 






15340CNTROW 


DS 


3,, 


ROW COUNTER. 














00461 


00003 






15350TEMP1 


DS 


10,, 


TEMPORARY WORK ADDRESS. 












00471 


00010 






15360TEMP2 


DS 


10,, 


TEMPORARY WORK ADDRESS 










00481 


00010 






15370BIMIN 


DS 


10,, 


MINIMUM B(l ). 














00491 


00010 






15380DJMIN 


DS 


10, 


MINIMUM D(J). 














00501 


00010 






15390AIKMAX 


DS 


10, 


DENOMINATOR OF SIMPLEX 


RATIO, 


USED TO BREAK 


Tl ES. 




00511 


00010 






15^00 


DC 


8.99999999 














00519 


00008 






15^10! NF 


DC 


2.99.. INFINITY. 














00521 


00002 






15420 


DC 


8.-99999999 












00529 


00008 







© 



129. 



15430NEGI NF 


DC 


2,99,, NEGATIVE 


I NF I N I 


TY. 
nnc a i 


00002 


15440 


DC 


8,0 






00008 


15450ZER0 


DC 


2,-99,, ZERO 




00541 


00002 


15460 


DC 


8, 10000000 




00549 


00008 


154700NE 


DC 


2,1,, ONE. 




00551 


00002 


15480ESSZER 


DC 


2,-07 




00553 


00002 


15490MESS1 


DAC 


16, I CANT FIND 


IT.(S> 




00016 


15500MESS2 


DAC 


10, ID BASIC. (5) 




00587 


00010 


15510MESS3 


DAC 


20, SOLUTION UNBOUNDED 


•<s> 

00607 


00020 


15520MESS4 


DAC 


4,K= (3 




00647 


00004 


15530CNTR 


DS 


3 




00656 


00003 


155400UT 


DS 


10 




00666 


00010 


15550 


DC 


1,@ 




00667 


00001 


15560CARD 


DS 


80 




00747 


00080 


15570IDEN 


DS 


4.CARD-76 




00671 


00004 


15580SIGN 


DS 


1.CARD-74 




00673 


00001 



READ CARD WITH ID OF PARAMETRIC VECTOR AND SIGN 



15590* 
15600* 
15610* 

15620START RNCD I DEN-3 



15630 

15640* 
15650* 
15660* 
15670* 
15680* 
15690 

15700 

15710 

157201 LP 

15730 

15740 



SF I DEN-3 



FIND PARAMETRIC VECTOR. 



(1) 

TF 

TF 

AM 

C 

BE 
AM 



IS IT BASIC. 
CNTR ,M 
I LP+6,S 
ILP+6,4, 10 
99999, 1 DEN 
FOUND I 
ILP+6,10,10 



00748 36 00668 00500 
00760 32 00668 00000 



00772 26 00656 00404 
00784 26 00814 00415 
00796 11 00814 000S4 
00808 24 99999 00671 
00820 46 00990 01200 
00832 11 00814 00010 



15750 

15760 

15770* 
15780* 
15790* 
15800 

15810 

15820 

15830JLP 

158^0 

15850 

15860 

15870 

15880 

15890 

15900 

15910 

15920FOUNDI 

15925 

15930 

15940 

15950 

15951SUBTR 
15952 
15953 
15954ZE 



(30. 



SM 
BP 



CNTR,1,10 
I LP 



(2). IS IT NON-BASIC, 
TF CNTR.N 

JLP+6, ILP+6 
JLP+5.MPL2 
99999, 1 DEN 
FOUNDJ 

JLP+5,MPL2 
CNTR,1,10 
JLP 



TF 
A 
C 

BE 
A 

SM 
BP 

RCTY 

WATY MESS 1,,, ERR OR HALT, 
H 

DORG *-9 
BD SUBTR.SIGN 
RCTY 

WATY MESS2 , , , ERROR HALT, ID BASIC 
H 

DORG *-9 

TF ZE+28, ILP+6 
AM ZE+28, 6, 10 
A ZE+27,MPL2 
TFLS OUT, 99999 



15 955 WATY MESS4 

15956 WNTY OUT-9 

15957 TF ZE 1+23, ZE+28 
15958ZE1 TFLS 99999, ZERO 



00844 12 00656 OOOOl 
00856 46 00808 01 100 

00868 26 00656 00408 

00880 26 00910 00814 

00892 21 00909 00418 

00904 24 99999 00671 

00916 46 01168 01200 

00928 21 00909 00418 

00940 12 00656 OOOOl 

00952 46 00904 01100 

00964 34 00000 00102 
ID NEITHER BASIC NOR NON-BASIC. 
00976 39 00555 00100 

00988 48 00000 00000 

00990 

00990 43 01028 00673 
01002 34 00000 00102 
01014 39 00587 00100 
01026 48 00000 00000 
01028 

1 02 8 2 6 1 092 0814 

01040 11 01092 00006 

01052 21 01091 00418 

01064 16 02323 01087 

01076 49 02292 00000 

01083 00005 00666 

01088 00005 99999 

01094 39 00647 00100 

01106 38 00657 00100 

01118 26 01153 01092 

01130 16 02323 51153 



© 



15959 


B 


END 


15960 


DORG 


*_3 


15961* 
15970* 
15980* 

|r An ftC ft 1 1 ki n 1 

I5990F UUNDJ 


TRANSFER VECTOR TO WO 
TF MOVE+28, JLP+6 


1 OUUU 


AM 


MOVE+28, 26, 10 


1601 


TFM 


M0VE+23.W+20 


1 Cf\n ft 


TF 


CNTR.M 


16030M0VE 


TFLS 


99999,99999 


16040 


AM 


MOVE+23,10,10 


16050 


AM 


MOVE+28, 10, 10 


16060 


SM 


CNTR.1,10 


16070 


BP 


MOVE 


16080* 
16090* 
16100 


CHANGE SIGN IF NEGATI 
BD CH,SIGN 


16110 


B 


MIN 


16120 


DORG 


*-3 


16130CH 


TF 


CNTR.M 


16140 


TFM 


CHANGE+11.W+18 


16150CHANGE 


BNF 


SETFLG, 99999 


16160 


TF 


*+l8,CHANGE+11 


16170 


CF 


99999 


16180 


B 


MOD 


16190 


DORG 


*-3 


16200SETFLG 


TF 


*+l8,CHANGE+11 


16210 


SF 


99999 


16220M0D 


AM 


CHANGE+11,10, 10 



01 142 49 02292 00000 
01149 00005 99999 
01 154 00005 00541 

01160 49 02188 00000 

01168 



COLUMN. 



01168 26 01244 

01180 11 01244 

01192 16 01239 

01204 26 00656 

01216 16 02323 
01228 49 02292 
01235 00005 
01240 00005 

01246 11 01239 

01258 11 01244 

01270 12 00656 

01282 46 01216 



00910 

00026 

04829 

00404 

01239 
00000 
19999 
99999 

OOOTO 

00 010 

00001 

01100 



01294 


43 


01314 


00673 


01306 


49 


01442 


00000 


01314 








01314 


26 


00656 


00404 


01326 


16 


01349 04827 


01338 


44 


01382 


99999 


01350 


26 


01368 


01349 


01362 


33 


99999 


00000 


01374 


49 


01406 


00000 


01382 








01382 


26 


01400 01349 


01394 


32 


99999 


00000 


01406 


11 


01349 


OOOTO 



© 



162 30 

16240 

16250* 
16260* 
16270* 
1 62 8 0M I N 



16290 

16300 

16310 

16320 

16330 

163^0* 
16350* 
16360* 
16370CMP1 

16380 

16390* 
16400* 
16410* 
16420 

16430 

16440CMP2 

16450 

16460TF1 



SM CNTR.1,10 
BP CHANGE 

SELECT LARGEST RATIO, 
TFLS R.NEGINF 

TF CNTR.M 

TFM CMP1+6,W+20 

TF TF1+28.S 

AM TF1+28, 10,10 

A TF1+27.MPL2 

IS A(l ,K) ZERO. 
CM 99999,99,1011 
BE STEP 

IS A(l ,K) NEGATIVE. 
TF CMP2+11.CMP1+6 
SM CMP2+11,2,10 
BNF STEP, 99999 
TF FDI V+28.CMP1+6 
TFLS TEMP2, 99999 



132, 



16470FDIV FD TEMP2, 99999 



16480TF2 



TFLS TEMP1.TEMP2 



16490FSUB FS TEMPI, R 



01418 


12 


00656 


OOOOl 


01430 46 


01338 


01 100 


A(l ,K) NEGATIVE. 


01442 
01454 
01461 
01466 


16 02323 
49 02292 
00005 
00005 


01465 
00000 
00440 
00531 


01472 


26 


00656 


00404 


01484 


16 


01538 


04829 


01496 


26 


01632 


00415 


01508 


11 


01632 


OOOTO 


01520 


21 


01631 


00418 


01532 


14 


99999 


00099 


01544 


46 


01778 


012 00 


01556 


26 


01591 


01538 


01568 


12 


01591 


00002 


01580 


44 


01778 


99999 


01592 


26 


01662 


01538 



01604 16 02323 01627 
01616 49 02292 00000 
01623 00005 00481 
01628 00005 99999 

01634 16 02323 01657 
01646 49 02272 00000 
01653 00005 00481 
01658 00005 99999 

01664 16 02323 01687 
01676 49 02292 00000 
01683 00005 00471 
01688 00005 00481 

01694 16 02323 01717 
01706 49 02212 00000 
01713 00005 00471 
01718 00005 00440 



© 



165 00 


BNP STEP 




16510 


TFLS R.TEMP2 




16520 


TF ROWADR,TF1+28 




16530STEP 


AM CMPI+6,10,10 




1654 


AM TFI+28,10,10 




16550 


SM CNTR,1,10 




16560 


BP CMP 1 




1657 0* 
16580* 
165 90* 
16600 


IS PARAMETRIC SOLUTION 
C R-2.NEGINF-2 


BOUNDED. 


16610 


BNE SIGNR 




16620 


RCTY 




16630 


WATY MESS3, SOLUTION 


UNBOUNDED 


16640 


H 




16650 


DORG *-9 




16660* 
16670* 
1 ooou 

16690SIGNR 


CHANGE SIGN OF R AND PRINT. 
CF R-2 


16700 


RCTY 




16710 


TFLS OUT.R 




1 A79 


WATY MESS4,,,K= . 




167 30 


WNTY OUT-9 




16740* 
16750* 
16760 


OBTAIN NEW PARAMETRIC 
TF CNTR ,M 


SOLUTION. 


16770 


TFM PAR1+23.W+20 




16780 


TFM PAR2+28.W+20 




16790 


TF PAR2+23.S 




16800 


A PAR2+22.MPL2 





/ 33. 

01724 47 01778 01100 

01736 16 02323 01759 
01748 49 02292 00000 
01755 00005 00440 
01760 00005 00481 

01766 26 00450 01632 

01778 11 01538 OOOTO 

01790 11 01632 00010 

01802 12 00656 OOOOl 

01814 46 01532 01100 



01826 24 00438 00529 
OI838 47 01876 01200 
01850 34 00000 00102 
01862 39 00607 00100 
01874 48 00000 00000 
01876 



01876 

01888 

01900 
01912 
01919 
01924 

01930 

01942 



33 00438 

34 00000 

16 02323 
49 02292 
00005 
00005 

39 00647 

38 00657 



00000 

00102 

01923 
00000 
00666 
00440 

00100 

00100 



01954 26 00656 00404 
01966 16 02049 04829 
01978 16 02084 04829 
01990 26 02079 00415 
02002 21 02078 00418 



13U. 



16810 


AM 


PAR2+23, 10,10 


16820PAR1 


FM 


99999, R 


16830PAR2 


FA 


99999,99999 


16840 


AM 


PARI+23,10,10 


16850 


AM 


PAR2+23, 10,10 


16860 


AM 


PAR2+28, 10,10 


16870 


SM 


CNTR,1,10 


16880 


BP 


PARI 


16890* 
16900* 
16910* 
16920 


SET B(K)=ZER0. 
TF ZER+23.R0WADR 


16930ZER 


TFLS 


99999, ZERO 


16940END 


RNCD 





16950 


B 





16960 


DEND 


START 



LOAD SUBROUTINES 



END OF PASS I I 



02014 11 02079 OOOTO 

02026 16 02323 02049 
02038 49 02252 00000 
02045 00005 59999 
02050 00005 00440 

02056 16 02323 02 079 
02068 49 02232 00000 
02075 00005 99999 
02080 00005 99999 

02086 11 02049 OOOTO 

02098 11 02079 OOOTO 

02110 11 02084 OOOTO 

02122 12 00656 00001 

02134 46 02026 01100 



02146 


26 


02181 


00450 


02158 


16 


02323 


02181 


02170 


49 


02292 


00000 


02177 


00005 


99999 


02182 


00005 


00541 


02188 


36 


00000 


00500 


02200 


49 


00000 


00000 


00748 








02212 


16 


02726 


03184 


02224 


49 


02312 


2 


02232 


16 


02726 


03228 


02244 


49 


02312 


2 


02252 


16 


02726 


03728 


02 2 64 


49 


02312 


2 


02272 


16 


02726 


03968 


02284 


49 


02312 


2 


02292 


16 


02726 


04304 


02 3 04 


49 


0241 6 


2 
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O O lTV 00 rrvOO J- O M3 O f\ CM 

-3-00-*-3-ir*unr^.<Ti— j-v£ o 

Oj"000000»-»->— CM 

000000000000 
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16970* 
16980* 
16990* 
17000* 



LP20-10, PARAMETRIC DUAL, LINEAR PROGRAMMING, NOV. 16, 1962 
REMARKS ON MACROS FOLLOW MACRO INSTRUCTIONS. 



17010 


DORG 


402 






1 TOO rtM 

1 /UZUn 






00402 




DS 


3,, 


NUMBER OF RESTRAINING EOUATIONS 


• 


17030N 






00404 00003 




DS 


NUMBER OF NONBASIC ACTIVITIES. 




1 /UHUr Urvn 






00408 00004 






2,, 


FORM OF INPUT - IMPLIES FLT. 


PT., 1 IMPLIES DECIMAL 


1 / up U O 






00410 00002 




5,, 


REFERENCE ADDRESS FOR MATRIX, » 
00415 00005 


W+10(M+3) . 


1 / UbUnr Lz 






DS 


3..M+2 




17070 


DS 




00418 00003 




1 




1 / UOUn 






00419 00001 




DS 


,4809, REFERENCE ADDRESS. 










04809 00000 




17090PR0D 


DS 


20,99, PRODUCT ADDRESS. 










00099 00020 




171000UTPUT 


DS 


10 












00429 00010 




17110 


DC 


1,(5) 




1 7 1 2 OR 






00430 00001 




DS 


10,, 


MAX OR MIN RATIO FOR DUAL OR S 
00440 00010 


MPLEX ALGORITHM. 


17130COLADR 


DS 


5,, 


ADDRESS OF D(K). 




17 140R0WADR 






00445 00005 




DS 


5,, 


ADDRESS OF B(R). 




17150ARKADR 






00450 00005 




DS 


5,, 


ADDRESS OF A(R,K). 




17160CNTC0L 






00455 00005 




DS 


3,, 


COLUMN COUNTER. 

00458 00003 




17170CNTR0W 


DS 


3,, 


ROW COUNTER. 




17180TEMP1 






00461 00003 




DS 


10,, 


TEMPORARY WORK ADDRESS. 

00471 00010 




17190TEMP2 


DS 


10,, 


TEMPORARY WORK ADDRESS. 

00481 00010 




17200BIMI N 


DS 


10,, 


Ml Nl MUM B( 1 ) . 

00491 00010 




17210DJMIN 


DS 


10,, 


MINIMUM D(J). 




17220AIKMAX 






00501 00010 




DS 


10,, 


DENOMINATOR OF SIMPLEX RATIO, 
00511 00010 


USED TO BREAK TIES. 


17230 


DC 


8,99999999 










00519 00008 




172401 NF 


DC 


2,99, 


, INFINITY. 

00521 00002 
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17250 DC 8,-99999999 

00529 00008 
17260NEGINF DC 2,99,, NEGATIVE INFINITY. 

00531 00002 

17270 DC 8,0 

00539 00008 

17280ZER0 DC 2,-99,, ZERO 

00541 00002 

17290 DC 8,10000000 

00549 00008 

173000NE DC 2,1,, ONE . 

00551 00002 

17310ESSZER DC 2,-07 

00553 00002 

17320* 

17330* TRANSFORM ENTIRE MATRIX. 

17340* (1) COMPUTE RECIPROCAL OF PIVOT ELEMENT. 

17350* (2) SET PIVOT CELL = ZERO. 

17360* (3) MOVE PIVOT COLUMN TO WORKING COLUMN. 

17370* (4) SET PIVOT COLUMN = UNIT VECTOR. 

17380* 



17390 


DS 


2 


00555 00002 




17400TRNMTX TF 


1 1+23.ARKADR 






17410 






00556 26 00723 


00455 


TF 


I2+23,C0LADR 






17420 




00568 26 00783 


00445 


TF 


CNTROW,M 


00580 26 00461 


00404 


17430 


TF 


FDI V1+28.ARKADR 


00592 26 00698 


00455 


17440 


TFM 


MOVELP+23.W+10 












00604 16 00753 


04819 


17450 


TF 


M0VELP+28,C0LADR 




17460 




00616 26 00758 


00445 


TF 


PI VR0W+23.ARKADR 






00628 26 00873 


00455 


17470MOVEK 


TFLS 


W.ONE 


00640 16 02753 
00652 49 02722 
00659 00005 
00664 00005 


00663 
00000 
04809 
00551 


17480FDI VI 


FD 


W, 99999 


00670 16 02753 
00682 49 02702 
00689 00005 
00694 00005 


00693 
00000 
04809 
99999 


17490* 


ADDRESS OF A(R,K) . 






175001 1 


TFLS 


99999, ZERO 


00700 16 02753 
00712 49 02722 
00719 00005 
00724 00005 


00723 
00000 
99999 
00541 


17510* 


ADDRESS OF A(R,K) . 






17520M0VELP 


TFLS 


99999,99999 


00730 16 02753 


00753 



138. 









00742 


49 02722 


00000 








00749 


00005 


99999 








00754 


00005 


99999 


17530* 


W+10, 


COLADR. 








175401 2 


TFLS 


99999, ZERO 






00783 




00760 


16 02753 








00772 


49 02722 
00005 


00000 








00779 


99999 








00784 


00005 


00541 


17550* 


COLADR. 








17560 


AM 


MOVELP+23, 10, 10 






00010 




00790 


11 00753 


17570 


AM 


MOVELP+28, 10, 10 




11 00758 


OOOlO 




00802 


17580 


AM 


12+23, 10,10 




11 00783 


00010 




00814 


17590 


SM 


CNTROW, 1, 10 






0000 1 




00826 


12 00461 


17600 


BNN 


MOVE LP 


00838 


46 00730 








01300 


17610PIVR0W TFLS 


99999, ONE 






00873 

00000 
99999 
00551 






00850 
00862 
00869 
00874 


16 02753 
49 02722 
00005 
00005 


17620* 


ADDRESS OF A(R,K). 








17630* 












17640* 


(5) MULTIPLY PIVOT ROW BY 


RECIPROCAL OF PIVOT ELEM 


17650* 












17660 


TF 


PRLP+23.ROWAOR 










00880 


26 00927 


00450 


17670 


TF 


CNTCOL, N 






00408 




00892 


26 00458 


17680PRLP 


FM 


99999, W 


00904 
00916 
00923 
00928 


16 02753 
49 02682 
00005 
00005 


00927 
00000 
99999 
04809 




17690 


A 


PRLP+22 ,MPL2 






00418 




00934 


21 00926 


17700 


SM 


CNTCOL, 1 , 10 




12 00458 


0000 1 




00946 


17710 


BNN 


PRLP 










00958 


46 00904 


01300 


17720* 












17730* 


(6) TRANSFORM ENTIRE MATR 


X. 






17740* 




R0WLP+6.W+10 








17750 


TFM 




16 01036 


04819 




00970 


17760 


TF 


1 4+ 1 1 , S 


00982 


26 01077 


00415 




17770 


A 


14+10, MPL2 




21 01076 


00418 




00994 


17780 


TFM 


FMUL+28.W+10 


01006 


16 01160 


04819 



139. 



17790 TF 
17800R0WLP CM 



17810 

17820 

1783014 

17840 

17850 

17860ELLP 



17870* 
17880FMUL 



17890* 
1790015 



CNTROW, M 

01018 26 00461 00404 
99999,99,1011, IS A(I,K), WORKING COLUMN, _EQUAL TO ZERO 
01030 14 99999 00099 



BE 

TF 

TFM 

TF 

TF 



NX TROW 

ELLP+28.R0WADR 
15+23,99999, ,S+10(M+2), 
CNTCOL, N 
151+6, 15+23 



01042 46 01276 01200 

01054 26 01130 00450 

01066 16 01185 99999 

01078 26 00458 00408 

01090 26 01198 01185 



TFLS TEMP2, 99999 



PIVOT ROW ADDRESS 
FM TEMP2, 99999 



01102 16 02753 01125 

01114 49 02722 00000 

01121 00005 00481 

01126 00005 99999 
I NCREMENT= 10(M+2). 



01132 16 02753 01 155 
01144 49 02682 00000 
01151 00005 00481 
01156 00005 99999 
W+10, ADDRESS OF A(0,K), WORKING COLUMN. INCREMENT =10. 
FS 99999, TEMP2 

01162 16 02753 01185 
01174 49 02662 00000 
01181 00005 99999 
01186 00005 00481 



17910* 


S+10(M+2), ADDRESS OF 


FUNCTIONAL. INCREMENT 


=10(M+2) . 


17920151 


C 


99999, ESSZER,, SAME ADDRESS AS 15+23. 1 NCREMENT= 10(M+2) 






01192 24 


99999 


00553 


17930 


BL 


LOW 












01204 47 


01716 01300 


17940 


A 


ELLP+27,MPL2 


01216 21 




00418 




01129 


17950 


A 


I51+5.MPL2 






00418 




01228 21 


01197 


17960 


A 


I5+22.MPL2 




01184 


00418 




01240 21 


17970 


SM 


CNTCOL, 1, 10 


01252 12 


00458 


0000 1 


17980 


BNN 


ELLP 












01264 46 


01 102 


01300 


17990NXTR0W AM 


R0WLP+6, 10, 10 






00010 






01276 11 


01036 


18000 


AM 


FMUL+28, 10, 10 












01288 11 


01 160 


000T0 


18010 


AM 


14+11,10,10 






000T0 






01300 11 


01077 


18020 


SM 


CNTROW, 1,10 












01312 12 


00461 


0000 1 


18030 


BNN 


R0WLP,,,IS MATR 


X TRANSFORMATION 


FINISHED. 




01324 46 01030 01300 




mo. 



1801+0* 








18050* 


(7) 


SWITCH ID/C ELEMENTS. 




18060* 






18070 


TF 


16+11 ROWA DR 




18080 


TF 






SWITfH+11 mi ADR 


18090 






U 1 ^t+O ZD UlHiy UU 1 +'+i> 


SM 


SWITCH+11 10 10 








urjou 1/ uilly UuOiu 


18100 


TF 


1 6+6 SWI TCH+1 1 








U13/Z 2o um2t> 0l4ly 


181 10 


s 


18120 






niaQii 00 n 1 li an nnliiQ 
u 1 50*+ ZZ UIHjU UU'+lo 


TF 


1 / TO f I DT 1 | 








01 )o£ Z n 1 li nil. 11 

ul^yo zo UT+3o Ui t +31 


181 30SW ITCH 


TF 


TFMP9 QQQQQ 


1814016 






uihuo zo uuto 1 yyyyy 


TF 


QQqqO QQQQQ 


181501 7 






OlU?0 ?6 QQQQQ QQQQQ 


TF 


ggggg TEMP2 


18160 






01 U32 2 6 QQQQQ OOURl 


AM 


ITER+11, 1, tO 




18170 




niui+U 11 mi».Qi nnnfli 


BNCT 


BBACK 




18180 






011+56 1+7 01690 00100 


RCTY 




181 901 TER 






011+68 31+ 00000 00102 


TFM 


OUTPUT, 0,8 


18200 




011+80 16 oou?q ofionn 


WNTY 


OUTPUT-3 


18210 






011+92 38 001+26 00100 


TBTY 










u 1 Jut uUUUU UU I UO 


18220 


TF 


PR 1+28, S 


18230 






01516 26 01592 001+15 


A 


PR1+27.MPL2, .ADDRESS 


OF FUNCTIONAL. 


1821+0 






01198 9t ni^Qi nnliiR 


TF 


PR2+1 1 , 1 6+1 1 , .ADDRESS 


OF VARIABLE IN. 
Ol^liO 9n 01 fi7 Q III 31 


18250 


TF 


PR3+11, 1 6+6, , ADDRESS 


OF VARIABLE OUT. 






U 1 P^Z ZO U 1 OOP U IHiO 


18260PR1 


TFLS 


OUTPUT, 99999 








01561+ 16 02753 91587 
01576 1+9 02722 00000 
01583 00005 001+29 
01588 00005 99999 


18270 


WNTY 


OUTPUT-9 










01594 38 001+20 00100 
01606 31+ 00000 00108 


18280 


TBTY 




18290PR2 


TF 


OUTPUT, 99999 




18300 






01618 26 001+29 99999 


WNTY 


OUTPUT-9 


01630 38 001+20 00100 


18310 


TBTY 




0161+2 31+ 00000 00108 







18320PR3 TF OUTPUT, 99999 

18330 WNTY 0UTPUT-9 

18340 RCTY 

18350BBACK BNC2 *+2l+ 

18360 H 

18370 BB 

18380 D0RG *-9 

18390L0W TF TFL+23, 151+6 

t81+00TFL TFLS 99999, ZERO 

181+10 B 151+21+ 

181+20 D0RG *-3 
181+30* 

181+1+0* DUAL - SELECT SMALLEST B(l) 
1 81+50* 

181+60DUAL TFLS BIMIN.ZER0 



181+70 TF CNTR0W.M 

181+80 TF CMP1+28.S 

181+90 A CMP1+27.MPL2 

18500 AM CMP1+28, 10, 10 

18510BICOMP TFLS TEMPI, BIMIN 

18520CMP1 FS TEMPI, 99999 



18530* 
1851+0 



ADDRESS OF B(J) 
BNE R0WSTP 



01654 

01666 

01678 

01690 

01702 

01711+ 

01716 

01716 

01728 
01740 
0171+7 
01752 



26 001+29 

38 001+20 

31+ 00000 

1+7 01711+ 

1+8 00000 

1+2 00000 



99999 
00100 
00102 
00200 
00000 
00000 



26 01751 01198 



16 02753 
1+9 02722 
00005 
00005 



91751 

00000 
99999 
0051+1 



18550NEGA TF MINBI+28.CMP1+28 



01758 1+9 01216 00000 
01766 



01766 16 02753 01789 
01778 1+9 02722 00000 
01785 00005 901+91 
01790 00005 9051+1 

01796 26 001+61 001+01+ 

01808 26 01902 001+15 

01820 21 01901 001+18 

01832 11 01902 00010 

0181+1+ 16 02753 91867 
01856 1+9 02722 00000 
01863 00005 901+71 
01868 00005 901+91 

01871+ 16 02753 91897 
01886 1+9 02662 00000 
01893 00005 001+71 
01898 00005 99999 



01901+ 1+7 01970 01200 
01916 26 OI956 01902 
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18560MI NB I TFLS BI.MI N, 99999 

01928 16 02753 01951 
01940 49 02722 00000 
01947 00005 (30491 
01952 00005 99999 
18570 TF ROWADR, Ml NBI+28,, SETUP ROW ADDRESS FOR MATRIX TRANSF . 

01958 26 00450 01956 

18580R0WSTP SM CNTROW, 1,10 

01970 12 00461 00001 

18590 BP BICOMP-12 

01982 46 01832 01 100 

18600* 

18610* SELECT LARGEST R= D(J)/A(R,J). 
18620* 

186301 N) TCL TFLS R.NEGINF 









01994 16 02753 52017 








02006 49 


02722 


00000 








02013 00005 


50440 


18640 






02018 00005 


00531 


TFM 


COLADR,0 










02024 16 


00445 


00000 


18650 


TF 


CNTCOL.N 








18660 




02036 26 


00458 


00408 


TF 


TSTARJ+6, ROWADR 












02048 26 


02150 


00450 


18670 


TF 


CS1+28,S 












02060 26 


02220 


00415 
00418 


18680 


A 


CS1+27.MPL2 


02072 21 


02219 


18690RETURN A 


TSTARJ+5 ,MPL2 












02084 21 


02149 


00418 


18700 


TF 


CMP2+6, TSTARJ+6 












02096 26 


02174 


02150 


18710 


SM 


CMP2+6,2, 10 










02108 12 


02174 


00002 


18720 


TF 


FDIV2+28, TSTARJ+6 


02120 26 


02250 


02150 


18730 


A 


CS1+27.MPL2 


02132 21 


02219 


00418 


18740TSTARJ 


CM 


99999,99, 1011 














02144 14 


99999 00099 


18750 


BE 


COLSTP 












02156 46 


02378 


01200 


18760CMP2 


C 


99999, ZERO-2 


02168 24 












99999 


00539 


18770 


BP 


COLSTP 












02180 46 


02378 01100 


18780GS1 


TFLS 


TEMP2 , 99999 














02192 16 


02753 02215 








02204 49 


02722 


00000 








02211 00005 


00481 








02216 00005 


99999 



1879Q* ADDRESS OF D(J). 

18800FDI V2 FO TEMP2, 99999 

02222 16 02753 02245 



18810* ADDRESS OF A(R,J). 



18820 


TFLS 


TEMPI, R 


18830 


FS 


TEMP 1 , TEMP2 


18840 


BP 


COLSTP 


18850 


TFLS 


R.TEMP2 


18860 


TF 


ARKADR.FDI V2+28 


18870 


TF 


COLADR , CS 1+28 


18880C0LSTP 


SM 


CNTCOL, 1,10 


18890 


BP 


RETURN 


18900 


CM 


COLADR, 


18910 


BNE 


BTM1 


18920 


RCTY 




18930 


WATY 


MESS 1 


18940 


B 


END 


18950 


DORG 


*-3 


18960BTM1 


BTM 


TRNMTX.O, 10 


18970END 


RNCD 





I898O 


B 





18990MESS1 


DAC 


22, INCONSISTENT 


19000 


DORG 


2662 


19010 


DEND 


DUAL 


LOAD SUBROUTINES 





02234 
02241 
02246 


49 02702 

00005 

00005 


00000 
00481 

99999 


02252 
02264 
02271 
02276 


16 02753 
49 02722 
00005 
00005 


02275 
00000 
00471 
00440 


02282 
02294 
02301 
02 306 


16 02753 
49 02662 
00005 
00005 


02 305 
00000 
50471 
00481 


02312 


46 02378 


01100 


02324 
02336 
02 343 
02348 


16 02753 
49 02722 
00005 
00005 


02347 
00000 
00440 
00481 


02354 


26 


00455 


02250 


02366 


26 


00445 


02220 


02378 


12 


00458 


00001 


02390 


46 


02084 


01100 


02402 


14 


00445 


Ooooo 


02414 


47 


02458 


01200 


02426 


34 


00000 


00102 


02438 


39 


02495 


00100 


02450 


49 


02470 


OOOOO 


02458 








02458 


17 


00556 


OOOOO 


02470 


36 


00000 


00500 


02482 
02495 


49 00000 

00022 


OOOOO 


02662 








01766 









c 



02662 16 
02674 49 
02682 16 
02694 49 
02702 16 
02714 49 
02722 16 
02734 49 



03156 03614 
02742 9 
03156 04158 
02742 9 
03156 04398 
02742 9 
03156 01*734 
02846 9 



END OF 


PASS I I 










00404 


M 


00408 


N 


00410 


FORM 


04809 


W 


00099 


PROD 


00429 *OUTPUT 


00450 


*R0WADR 


00455 


*ARKADR 


00458 


*CNTCOL 


00481 


TEMP2 


00491 


BIMIN 


00501 


DJMIN 


00531 


*NEG I NF 


00541 


ZERO 


00551 


ONE 


00640 


MOVER 


00670 


FOI VI 


00700 


1 1 


00850 


*PI VROW 


00904 


PRLP 


01030 


ROWLP 


01 132 


FMUL 


01162 


15 


01192 


151 


01420 


16 


01432 


17 


01480 


ITER 


01654 


PR 3 


01690 


BBACK 


01716 


LOW 


01844 


*BI COMP 


01874 


CMP 1 


01916 


NEGA 


01994 


*l Nl TCL 


02084 


*RETURN 


02144 


*TSTARJ 


02222 


FOI V2 


02 378 *COLSTP 


02458 


BTM1 



00415 
00440 
00461 
00511 
00553 
00730 
01066 
01276 
01564 
01728 
01928 
02168 
02470 



S 
R 

*CNTR0W 
*A I KMAX 
*ESSZER 
*M0VELP 
14 

*NXTROW 
PR 1 
TFL 
MINBI 
CMP2 
END 



00418 
00445 
00471 
00521 
00556 
00760 
01102 
01408 
01618 
01766 
01970 
02192 
02495 



MPL2 
*C0LADR 

TEMPI 

INF 
*TRNMTX 

12 

ELLP 
*SWI TCH 

PR2 

DUAL 
*R0WSTP 

CS1 

MESS 1 



Ob 







V.B. FORMAT FOR MEMORY CLEAR AND CONDENSED PROGRAM LOADER. 

(1) . TWO CARD MEMORY CLEAR ROUTINE, USED WITH LP20-1. 

36002400050*260004700054160005400001 11 00054000003 1001390001045000120054049002420 
001 60003500 1002 600090002 9917O0O600OT4003936OO0OO0O5O049OO00O01234567891234567890 

(2) . SIX CARD LOADER. 

4 1 OO0OOOOO0O360O2 1 00050049002 1 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

3600000005003600080005003600300005003600322005004900 1280000000000000000000000000 
36001 00005003600 1 800050036002600050049O0660tl60007900 1662 60OO74OO 1 63250040200 1 66 

C/.OA03 INTO i&K.O) V ' 

f(.e.%TAKT ADDRESS 

1 10016300001 110007900001 12001650000147000560120036001590050045000440016049000000 
CLOA0% into Ttc) \_JeLOAHefi, f4c<r*AH STAIST* M£K£, 

012 34567891234567890234567890"! 34567890T24567890T23567890T23467890T23457890T53456 



X 

I 

1 



45678:301 34567890124567890T2l567890T23467890T23457890l23456890T23456790T2345678*0 

iLOAbi IfJTO 32.2.) 



(3) . FOUR CARD TRAI LER . 



o 



0*0000000000000000000000300000000000000000000000 00000000000000000000000000000000 

0000000000001 020301+0002 01+06080003060902 1001+0802 161 005001 51 02 00602 18 11+200701+1 1282 
(i. fl^O:* iATO 100) 

0080611+22300908172630000000000506070809001211+161815181121+272021+282236352035301+51+ 
iLoAOi l*)TO l?o) 

036321+81+1+55321+91+653601+81+651+62751+1+53627180123^56789123^5678902 31+56789313456789^2 



(1+). ILLUSTRATION OF FORMAT FOR REMAINING CARDS. 
001+027 30000000000000000000000000000000000000000000000000000000000000000000000000 
001+75730000000000000000000000000000000000000000000000000000000000000000300000000 

0051+87300000000000000000000000000000000000000000000000000000000000000000004:00000 
00621730000000000000000*000000000000000000009931+000000010237001+550050039001+55001 
00691+730031+000000010231+000000010236001+020050032001+020000032001+060000016001+1531+80 

007677 3926001+2 9001+01+1 1001+29000^32 1001+ 11+001+29 12 001+290000126001+ 18001+2 9 15001+ 1900000 



A * AbD^E^s t^rie/fe d/g/t /aj colum/v $ ts loaded . 
E» = filort&e.* of biGirs a* CA/es to qe T/eAA/sAt/rrefi 
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DELISTING OF SAMPLE PROBLEM INPUT DECKS, DUPLICATED ALPHAMERI CALLY. 

THE FIRST CARD OF EACH DECK IS THE HASH TOTAL CARD AND MUST BE REMOVED 
PRIOR TO EXECUTION. 
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SAMPLE PROBLEM , LP20, SIMPLEX. 
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SAMPLE PROBLEM, LP20, SIMPLEX, TEST SOLUTION. 
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LINEAR PROGRAMMING TEST PROBLEM. DUAL. FEED MIX. 
003 004 1 
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